(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    131652,       2768]
NotebookOptionsPosition[    130694,       2733]
NotebookOutlinePosition[    131052,       2749]
CellTagsIndexPosition[    131009,       2746]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"original", ":=", 
  RowBox[{"{", 
   RowBox[{
   "0.1417667", ",", "0.1336823", ",", "0.1148966", ",", "0.0648921", ",", 
    "0.0176065", ",", "0.0022807", ",", 
    RowBox[{"-", "0.0130450"}], ",", 
    RowBox[{"-", "0.0330032"}], ",", 
    RowBox[{"-", "0.0534672"}], ",", 
    RowBox[{"-", "0.0673252"}], ",", 
    RowBox[{"-", "0.0786732"}], ",", 
    RowBox[{"-", "0.0675414"}], ",", 
    RowBox[{"-", "0.0378521"}], ",", 
    RowBox[{"-", "0.0143662"}], ",", 
    RowBox[{"-", "0.0014013"}], ",", "0.0063433", ",", 
    RowBox[{"-", "0.0075937"}], ",", 
    RowBox[{"-", "0.0211167"}], ",", 
    RowBox[{"-", "0.0109491"}], ",", 
    RowBox[{"-", "0.0007815"}], ",", 
    RowBox[{"-", "0.0030589"}], ",", 
    RowBox[{"-", "0.0077012"}], ",", 
    RowBox[{"-", "0.0183915"}], ",", 
    RowBox[{"-", "0.0321500"}], ",", 
    RowBox[{"-", "0.0481673"}], ",", 
    RowBox[{"-", "0.0665681"}], ",", 
    RowBox[{"-", "0.0950821"}], ",", 
    RowBox[{"-", "0.1461381"}], ",", 
    RowBox[{"-", "0.1959636"}], ",", 
    RowBox[{"-", "0.2377547"}], ",", 
    RowBox[{"-", "0.2795459"}], ",", 
    RowBox[{"-", "0.3226457"}], ",", 
    RowBox[{"-", "0.3658057"}], ",", 
    RowBox[{"-", "0.4033783"}], ",", 
    RowBox[{"-", "0.4393665"}], ",", 
    RowBox[{"-", "0.4868780"}], ",", 
    RowBox[{"-", "0.5420011"}], ",", 
    RowBox[{"-", "0.5843568"}], ",", 
    RowBox[{"-", "0.6094633"}], ",", 
    RowBox[{"-", "0.6198848"}], ",", 
    RowBox[{"-", "0.5858905"}], ",", 
    RowBox[{"-", "0.5486694"}], ",", 
    RowBox[{"-", "0.4696104"}], ",", 
    RowBox[{"-", "0.3905514"}], ",", 
    RowBox[{"-", "0.3570850"}], ",", 
    RowBox[{"-", "0.3289829"}], ",", 
    RowBox[{"-", "0.2704533"}], ",", 
    RowBox[{"-", "0.1999648"}], ",", 
    RowBox[{"-", "0.1281025"}], ",", 
    RowBox[{"-", "0.0550746"}], ",", "0.0239201", ",", "0.1133352", ",", 
    "0.2003282", ",", "0.2768081", ",", "0.3524992", ",", "0.3529555", ",", 
    "0.3534118", ",", "0.3517184", ",", "0.3495956", ",", "0.3411872", ",", 
    "0.3294921", ",", "0.3131140", ",", "0.2916579", ",", "0.2637391", ",", 
    "0.2209460", ",", "0.1796093", ",", "0.1483726", ",", "0.1171359", ",", 
    "0.0900418", ",", "0.0631697", ",", "0.0331643", ",", "0.0022351", ",", 
    RowBox[{"-", "0.0101664"}], ",", 
    RowBox[{"-", "0.0099779"}], ",", 
    RowBox[{"-", "0.0023578"}], ",", "0.0155867", ",", "0.0352812", ",", 
    "0.0604670", ",", "0.0857409", ",", "0.1122856", ",", "0.1388304", ",", 
    "0.1234762", ",", "0.1028336", ",", "0.0952256", ",", "0.0929143", ",", 
    "0.0972214", ",", "0.1072997", ",", "0.1051072", ",", "0.0808439", ",", 
    "0.0578157", ",", "0.0403969", ",", "0.0228202", ",", 
    RowBox[{"-", "0.0388002"}], ",", 
    RowBox[{"-", "0.1004206"}], ",", 
    RowBox[{"-", "0.1277955"}], ",", 
    RowBox[{"-", "0.1479918"}], ",", 
    RowBox[{"-", "0.1502680"}], ",", 
    RowBox[{"-", "0.1428878"}], ",", 
    RowBox[{"-", "0.1314401"}], ",", 
    RowBox[{"-", "0.1154596"}], ",", 
    RowBox[{"-", "0.1010447"}], ",", 
    RowBox[{"-", "0.0903514"}], ",", 
    RowBox[{"-", "0.0785949"}], ",", 
    RowBox[{"-", "0.0589839"}], ",", 
    RowBox[{"-", "0.0393729"}], ",", "0.0126465", ",", "0.0666487", ",", 
    "0.1069299", ",", "0.1430074", ",", "0.1865643", ",", "0.2353488", ",", 
    "0.2726647", ",", "0.2935950", ",", "0.3100195", ",", "0.3117653", ",", 
    "0.3131902", ",", "0.3094009", ",", "0.3056117", ",", "0.2820342", ",", 
    "0.2557870", ",", "0.2281636", ",", "0.1999622", ",", "0.1763593", ",", 
    "0.1568772", ",", "0.1299580", ",", "0.0892580", ",", "0.0512536", ",", 
    "0.0260778", ",", "0.0009019", ",", 
    RowBox[{"-", "0.0156125"}], ",", 
    RowBox[{"-", "0.0320989"}], ",", 
    RowBox[{"-", "0.0409727"}], ",", 
    RowBox[{"-", "0.0481743"}], ",", 
    RowBox[{"-", "0.0392700"}], ",", 
    RowBox[{"-", "0.0214247"}], ",", 
    RowBox[{"-", "0.0088924"}], ",", 
    RowBox[{"-", "0.0024447"}], ",", 
    RowBox[{"-", "0.0008380"}], ",", 
    RowBox[{"-", "0.0111246"}], ",", 
    RowBox[{"-", "0.0194352"}], ",", 
    RowBox[{"-", "0.0121443"}], ",", 
    RowBox[{"-", "0.0048534"}], ",", 
    RowBox[{"-", "0.0110560"}], ",", 
    RowBox[{"-", "0.0181882"}], ",", 
    RowBox[{"-", "0.0253956"}], ",", 
    RowBox[{"-", "0.0326270"}], ",", 
    RowBox[{"-", "0.0516836"}], ",", 
    RowBox[{"-", "0.0792402"}], ",", 
    RowBox[{"-", "0.1107211"}], ",", 
    RowBox[{"-", "0.1479691"}], ",", 
    RowBox[{"-", "0.1876377"}], ",", 
    RowBox[{"-", "0.2354997"}], ",", 
    RowBox[{"-", "0.2832637"}], ",", 
    RowBox[{"-", "0.3292111"}], ",", 
    RowBox[{"-", "0.3751586"}], ",", 
    RowBox[{"-", "0.4082529"}], ",", 
    RowBox[{"-", "0.4394995"}], ",", 
    RowBox[{"-", "0.4855031"}], ",", 
    RowBox[{"-", "0.5379082"}], ",", 
    RowBox[{"-", "0.5819942"}], ",", 
    RowBox[{"-", "0.6184189"}], ",", 
    RowBox[{"-", "0.6354882"}], ",", 
    RowBox[{"-", "0.6155995"}], ",", 
    RowBox[{"-", "0.5838894"}], ",", 
    RowBox[{"-", "0.4931451"}], ",", 
    RowBox[{"-", "0.4024009"}], ",", 
    RowBox[{"-", "0.3787079"}], ",", 
    RowBox[{"-", "0.3556945"}], ",", 
    RowBox[{"-", "0.2996606"}], ",", 
    RowBox[{"-", "0.2360365"}], ",", 
    RowBox[{"-", "0.1588435"}], ",", 
    RowBox[{"-", "0.0738923"}], ",", "0.0099745", ",", "0.0925649", ",", 
    "0.1767973", ",", "0.2652005", ",", "0.3448519", ",", "0.3503869", ",", 
    "0.3559221", ",", "0.3631155", ",", "0.3704362", ",", "0.3663456", ",", 
    "0.3584894", ",", "0.3428189", ",", "0.3213728", ",", "0.2913528", ",", 
    "0.2483713", ",", "0.2058243", ",", "0.1648069", ",", "0.1245129", ",", 
    "0.0997933", ",", "0.0750738", ",", "0.0417057", ",", "0.0070170", ",", 
    RowBox[{"-", "0.0060845"}], ",", 
    RowBox[{"-", "0.0095167"}], ",", 
    RowBox[{"-", "0.0090960"}], ",", 
    RowBox[{"-", "0.0050289"}], ",", "0.0082953", ",", "0.0398395", ",", 
    "0.0716648", ",", "0.1049648", ",", "0.1382648", ",", "0.1228605", ",", 
    "0.1066222", ",", "0.1001175", ",", "0.0959513", ",", "0.1046219", ",", 
    "0.1208503", ",", "0.1206710", ",", "0.1006434", ",", "0.0807908", ",", 
    "0.0613980", ",", "0.0384209", ",", 
    RowBox[{"-", "0.0172478"}], ",", 
    RowBox[{"-", "0.0729164"}], ",", 
    RowBox[{"-", "0.1103495"}], ",", 
    RowBox[{"-", "0.1462385"}], ",", 
    RowBox[{"-", "0.1533257"}], ",", 
    RowBox[{"-", "0.1505582"}], ",", 
    RowBox[{"-", "0.1417429"}], ",", 
    RowBox[{"-", "0.1283316"}], ",", 
    RowBox[{"-", "0.1165430"}], ",", 
    RowBox[{"-", "0.1072781"}], ",", 
    RowBox[{"-", "0.0974580"}], ",", 
    RowBox[{"-", "0.0856041"}], ",", 
    RowBox[{"-", "0.0721105"}], ",", 
    RowBox[{"-", "0.0166303"}], ",", "0.0388499", ",", "0.0891048", ",", 
    "0.1385142", ",", "0.1850678", ",", "0.2303011", ",", "0.2657278", ",", 
    "0.2916179", ",", "0.3135197", ",", "0.3273278", ",", "0.3388011", ",", 
    "0.3373727", ",", "0.3359443", ",", "0.3067875", ",", "0.2769593", ",", 
    "0.2504937", ",", "0.2248715", ",", "0.1925234", ",", "0.1560988", ",", 
    "0.1217125", ",", "0.0898607", ",", "0.0579450", ",", "0.0258551", ",", 
    RowBox[{"-", "0.0055566"}], ",", 
    RowBox[{"-", "0.0302762"}], ",", 
    RowBox[{"-", "0.0549958"}], ",", 
    RowBox[{"-", "0.0610969"}], ",", 
    RowBox[{"-", "0.0654714"}], ",", 
    RowBox[{"-", "0.0580921"}], ",", 
    RowBox[{"-", "0.0465457"}], ",", 
    RowBox[{"-", "0.0316580"}], ",", 
    RowBox[{"-", "0.0141599"}], ",", 
    RowBox[{"-", "0.0023680"}], ",", "0.0002905", ",", "0.0018098", ",", 
    RowBox[{"-", "0.0010172"}], ",", 
    RowBox[{"-", "0.0038312"}], ",", 
    RowBox[{"-", "0.0062317"}], ",", 
    RowBox[{"-", "0.0086323"}], ",", 
    RowBox[{"-", "0.0095759"}], ",", 
    RowBox[{"-", "0.0102703"}], ",", 
    RowBox[{"-", "0.0334362"}], ",", 
    RowBox[{"-", "0.0673215"}], ",", 
    RowBox[{"-", "0.1049030"}], ",", 
    RowBox[{"-", "0.1461783"}], ",", 
    RowBox[{"-", "0.1894613"}], ",", 
    RowBox[{"-", "0.2369463"}], ",", 
    RowBox[{"-", "0.2851532"}], ",", 
    RowBox[{"-", "0.3375682"}], ",", 
    RowBox[{"-", "0.3899832"}], ",", 
    RowBox[{"-", "0.4304243"}], ",", 
    RowBox[{"-", "0.4704895"}], ",", 
    RowBox[{"-", "0.5148479"}], ",", 
    RowBox[{"-", "0.5603291"}], ",", 
    RowBox[{"-", "0.5981441"}], ",", 
    RowBox[{"-", "0.6311762"}], ",", 
    RowBox[{"-", "0.6465394"}], ",", 
    RowBox[{"-", "0.6393179"}], ",", 
    RowBox[{"-", "0.6054915"}], ",", 
    RowBox[{"-", "0.4967532"}], ",", 
    RowBox[{"-", "0.3950332"}], ",", 
    RowBox[{"-", "0.3686669"}], ",", 
    RowBox[{"-", "0.3423007"}], ",", 
    RowBox[{"-", "0.2765776"}], ",", 
    RowBox[{"-", "0.2068827"}], ",", 
    RowBox[{"-", "0.1183590"}], ",", 
    RowBox[{"-", "0.0229228"}], ",", "0.0484948", ",", "0.1006221", ",", 
    "0.1778307", ",", "0.2963597", ",", "0.3905942", ",", "0.3881638", ",", 
    "0.3855565", ",", "0.3757461", ",", "0.3659357", ",", "0.3676541", ",", 
    "0.3714532", ",", "0.3417043", ",", "0.2954493", ",", "0.2571813", ",", 
    "0.2271151", ",", "0.1948198", ",", "0.1577107", ",", "0.1205766", ",", 
    "0.0832890", ",", "0.0460013", ",", "0.0237646", ",", "0.0021101", ",", 
    RowBox[{"-", "0.0082173"}], ",", 
    RowBox[{"-", "0.0154586"}], ",", 
    RowBox[{"-", "0.0104363"}], ",", "0.0024591", ",", "0.0204000", ",", 
    "0.0449708", ",", "0.0726890", ",", "0.1095898", ",", "0.1431061", ",", 
    "0.1368370", ",", "0.1305678", ",", "0.1139787", ",", "0.0962623", ",", 
    "0.0977387", ",", "0.1065076", ",", "0.0989099", ",", "0.0778010", ",", 
    "0.0561366", ",", "0.0335299", ",", "0.0069060", ",", 
    RowBox[{"-", "0.0364029"}], ",", 
    RowBox[{"-", "0.0797358"}], ",", 
    RowBox[{"-", "0.1244433"}], ",", 
    RowBox[{"-", "0.1691508"}], ",", 
    RowBox[{"-", "0.1741565"}], ",", 
    RowBox[{"-", "0.1716171"}], ",", 
    RowBox[{"-", "0.1563698"}], ",", 
    RowBox[{"-", "0.1346757"}], ",", 
    RowBox[{"-", "0.1174606"}], ",", 
    RowBox[{"-", "0.1049719"}], ",", 
    RowBox[{"-", "0.0875618"}], ",", 
    RowBox[{"-", "0.0591819"}], ",", 
    RowBox[{"-", "0.0281208"}], ",", "0.0204455", ",", "0.0690117", ",", 
    "0.1095462", ",", "0.1497105", ",", "0.2007329", ",", "0.2548343", ",", 
    "0.2905248", ",", "0.3140540", ",", "0.3328156", ",", "0.3451357", ",", 
    "0.3494998", ",", "0.3297995", ",", "0.3102477", ",", "0.2926206", ",", 
    "0.2749935", ",", "0.2445416", ",", "0.2125808", ",", "0.1828344", ",", 
    "0.1539586", ",", "0.1175913", ",", "0.0748677", ",", "0.0395773", ",", 
    "0.0172682", ",", 
    RowBox[{"-", "0.0039581"}], ",", 
    RowBox[{"-", "0.0204841"}], ",", 
    RowBox[{"-", "0.0369324"}], ",", 
    RowBox[{"-", "0.0459592"}], ",", 
    RowBox[{"-", "0.0549860"}], ",", 
    RowBox[{"-", "0.0401845"}], ",", 
    RowBox[{"-", "0.0206231"}], ",", 
    RowBox[{"-", "0.0149354"}], ",", 
    RowBox[{"-", "0.0165027"}], ",", 
    RowBox[{"-", "0.0111837"}], ",", "0.0016026", ",", "0.0073163", ",", 
    RowBox[{"-", "0.0032481"}], ",", 
    RowBox[{"-", "0.0126711"}], ",", 
    RowBox[{"-", "0.0141789"}], ",", 
    RowBox[{"-", "0.0156867"}], ",", 
    RowBox[{"-", "0.0330119"}], ",", 
    RowBox[{"-", "0.0511845"}], ",", 
    RowBox[{"-", "0.0718699"}], ",", 
    RowBox[{"-", "0.0932962"}], ",", 
    RowBox[{"-", "0.1319921"}], ",", 
    RowBox[{"-", "0.1824232"}], ",", 
    RowBox[{"-", "0.2291925"}], ",", 
    RowBox[{"-", "0.2708746"}], ",", 
    RowBox[{"-", "0.3138535"}], ",", 
    RowBox[{"-", "0.3609021"}], ",", 
    RowBox[{"-", "0.4077237"}], ",", 
    RowBox[{"-", "0.4512707"}], ",", 
    RowBox[{"-", "0.4948176"}], ",", 
    RowBox[{"-", "0.5335730"}], ",", 
    RowBox[{"-", "0.5717237"}], ",", 
    RowBox[{"-", "0.6120186"}], ",", 
    RowBox[{"-", "0.6531848"}], ",", 
    RowBox[{"-", "0.6509641"}], ",", 
    RowBox[{"-", "0.6109089"}], ",", 
    RowBox[{"-", "0.5497576"}], ",", 
    RowBox[{"-", "0.4506610"}], ",", 
    RowBox[{"-", "0.3670058"}], ",", 
    RowBox[{"-", "0.3534854"}], ",", 
    RowBox[{"-", "0.3397278"}], ",", 
    RowBox[{"-", "0.2597165"}], ",", 
    RowBox[{"-", "0.1797052"}], ",", 
    RowBox[{"-", "0.1000055"}], ",", 
    RowBox[{"-", "0.0203712"}], ",", "0.0558339", ",", "0.1301910", ",", 
    "0.2189980", ",", "0.3239074", ",", "0.3965887", ",", "0.3926506", ",", 
    "0.3868831", ",", "0.3675995", ",", "0.3483158", ",", "0.3536164", ",", 
    "0.3604213", ",", "0.3351526", ",", "0.3000571", ",", "0.2678226", ",", 
    "0.2375878", ",", "0.2056416", ",", "0.1712505", ",", "0.1330456", ",", 
    "0.0824160", ",", "0.0340570", ",", "0.0225801", ",", "0.0111031", ",", 
    "0.0033146", ",", 
    RowBox[{"-", "0.0039763"}], ",", "0.0039689", ",", "0.0183127", ",", 
    "0.0352720", ",", "0.0545755", ",", "0.0790213", ",", "0.1129959", ",", 
    "0.1385772", ",", "0.1242136", ",", "0.1098501", ",", "0.0897024", ",", 
    "0.0695359", ",", "0.0822430", ",", "0.1021714", ",", "0.0897862", ",", 
    "0.0594621", ",", "0.0408321", ",", "0.0355946", ",", "0.0137997", ",", 
    RowBox[{"-", "0.0486738"}], ",", 
    RowBox[{"-", "0.1082503"}], ",", 
    RowBox[{"-", "0.1449527"}], ",", 
    RowBox[{"-", "0.1816551"}], ",", 
    RowBox[{"-", "0.1680961"}], ",", 
    RowBox[{"-", "0.1510742"}], ",", 
    RowBox[{"-", "0.1347370"}], ",", 
    RowBox[{"-", "0.1186177"}], ",", 
    RowBox[{"-", "0.0998379"}], ",", 
    RowBox[{"-", "0.0791456"}], ",", 
    RowBox[{"-", "0.0625786"}], ",", 
    RowBox[{"-", "0.0520738"}], ",", 
    RowBox[{"-", "0.0332620"}], ",", "0.0136675", ",", "0.0610545", ",", 
    "0.1169215", ",", "0.1727886", ",", "0.2181875", ",", "0.2620816", ",", 
    "0.2899666", ",", "0.3109069", ",", "0.3205382", ",", "0.3197546", ",", 
    "0.3179139", ",", "0.3140553", ",", "0.3084920", ",", "0.2944161", ",", 
    "0.2803402", ",", "0.2423625", ",", "0.2041424", ",", "0.1733264", ",", 
    "0.1442124", ",", "0.1113813", ",", "0.0764247", ",", "0.0494284", ",", 
    "0.0318014", ",", "0.0118037", ",", 
    RowBox[{"-", "0.0142153"}], ",", 
    RowBox[{"-", "0.0392413"}], ",", 
    RowBox[{"-", "0.0558565"}], ",", 
    RowBox[{"-", "0.0724718"}], ",", 
    RowBox[{"-", "0.0470128"}], ",", 
    RowBox[{"-", "0.0183254"}], ",", 
    RowBox[{"-", "0.0107447"}], ",", 
    RowBox[{"-", "0.0101297"}], ",", 
    RowBox[{"-", "0.0096059"}], ",", 
    RowBox[{"-", "0.0091496"}], ",", 
    RowBox[{"-", "0.0132586"}], ",", 
    RowBox[{"-", "0.0242694"}], ",", 
    RowBox[{"-", "0.0337218"}], ",", 
    RowBox[{"-", "0.0376896"}], ",", 
    RowBox[{"-", "0.0417081"}], ",", 
    RowBox[{"-", "0.0468167"}], ",", 
    RowBox[{"-", "0.0519253"}], ",", 
    RowBox[{"-", "0.0739090"}], ",", 
    RowBox[{"-", "0.0984698"}], ",", 
    RowBox[{"-", "0.1411718"}], ",", 
    RowBox[{"-", "0.1919997"}], ",", 
    RowBox[{"-", "0.2432149"}], ",", 
    RowBox[{"-", "0.2947967"}], ",", 
    RowBox[{"-", "0.3422312"}], ",", 
    RowBox[{"-", "0.3815028"}], ",", 
    RowBox[{"-", "0.4195997"}], ",", 
    RowBox[{"-", "0.4515308"}], ",", 
    RowBox[{"-", "0.4834619"}], ",", 
    RowBox[{"-", "0.5291148"}], ",", 
    RowBox[{"-", "0.5750027"}], ",", 
    RowBox[{"-", "0.6181313"}], ",", 
    RowBox[{"-", "0.6605971"}], ",", 
    RowBox[{"-", "0.6420882"}], ",", 
    RowBox[{"-", "0.5876793"}], ",", 
    RowBox[{"-", "0.5184430"}], ",", 
    RowBox[{"-", "0.4312699"}], ",", 
    RowBox[{"-", "0.3615816"}], ",", 
    RowBox[{"-", "0.3378341"}], ",", 
    RowBox[{"-", "0.3082011"}], ",", 
    RowBox[{"-", "0.2248867"}], ",", 
    RowBox[{"-", "0.1415721"}], ",", 
    RowBox[{"-", "0.0775815"}], ",", 
    RowBox[{"-", "0.0152270"}], ",", "0.0745027", ",", "0.1735992", ",", 
    "0.2658815", ",", "0.3529853", ",", "0.3972850", ",", "0.3750057", ",", 
    "0.3609950", ",", "0.3772730", ",", "0.3919771", ",", "0.3663747", ",", 
    "0.3407723", ",", "0.3218977", ",", "0.3041119", ",", "0.2756762", ",", 
    "0.2423167", ",", "0.1967822", ",", "0.1394074", ",", "0.0950091", ",", 
    "0.0769455", ",", "0.0562738", ",", "0.0211882", ",", 
    RowBox[{"-", "0.0138973"}], ",", 
    RowBox[{"-", "0.0040152"}], ",", "0.0069558", ",", "0.0115745", ",", 
    "0.0146000", ",", "0.0247526", ",", "0.0392253", ",", "0.0656186", ",", 
    "0.1068344", ",", "0.1316582", ",", "0.1119083", ",", "0.0936497", ",", 
    "0.0901084", ",", "0.0865671", ",", "0.0867840", ",", "0.0873494", ",", 
    "0.0716133", ",", "0.0500978", ",", "0.0358995", ",", "0.0274183", ",", 
    RowBox[{"-", "0.0031246"}], ",", 
    RowBox[{"-", "0.0689807"}], ",", 
    RowBox[{"-", "0.1265132"}], ",", 
    RowBox[{"-", "0.1522842"}], ",", 
    RowBox[{"-", "0.1767108"}], ",", 
    RowBox[{"-", "0.1587960"}], ",", 
    RowBox[{"-", "0.1408812"}], ",", 
    RowBox[{"-", "0.1310049"}], ",", 
    RowBox[{"-", "0.1225038"}], ",", 
    RowBox[{"-", "0.1008328"}], ",", 
    RowBox[{"-", "0.0728795"}], ",", 
    RowBox[{"-", "0.0559207"}], ",", 
    RowBox[{"-", "0.0499491"}], ",", 
    RowBox[{"-", "0.0291774"}], ",", "0.0225730", ",", "0.0753590", ",", 
    "0.1341821", ",", "0.1930051", ",", "0.2359208", ",", "0.2783369", ",", 
    "0.2969594", ",", "0.3093588", ",", "0.3190522", ",", "0.3270572", ",", 
    "0.3281089", ",", "0.3202724", ",", "0.3096543", ",", "0.2912039", ",", 
    "0.2718915", ",", "0.2433231", ",", "0.2147547", ",", "0.1831589", ",", 
    "0.1512576", ",", "0.1112879", ",", "0.0683559", ",", "0.0433141", ",", 
    "0.0326407", ",", "0.0148221", ",", 
    RowBox[{"-", "0.0147680"}], ",", 
    RowBox[{"-", "0.0384988"}], ",", 
    RowBox[{"-", "0.0389154"}], ",", 
    RowBox[{"-", "0.0390195"}], ",", 
    RowBox[{"-", "0.0264018"}], ",", 
    RowBox[{"-", "0.0137841"}], ",", 
    RowBox[{"-", "0.0107877"}], ",", 
    RowBox[{"-", "0.0095279"}], ",", 
    RowBox[{"-", "0.0070847"}], ",", 
    RowBox[{"-", "0.0040593"}], ",", 
    RowBox[{"-", "0.0070044"}], ",", 
    RowBox[{"-", "0.0160808"}], ",", 
    RowBox[{"-", "0.0255214"}], ",", 
    RowBox[{"-", "0.0357485"}], ",", 
    RowBox[{"-", "0.0459229"}], ",", 
    RowBox[{"-", "0.0557731"}], ",", 
    RowBox[{"-", "0.0656232"}], ",", 
    RowBox[{"-", "0.0871435"}], ",", 
    RowBox[{"-", "0.1091154"}], ",", 
    RowBox[{"-", "0.1561578"}], ",", 
    RowBox[{"-", "0.2100310"}], ",", 
    RowBox[{"-", "0.2600198"}], ",", 
    RowBox[{"-", "0.3075148"}], ",", 
    RowBox[{"-", "0.3523948"}], ",", 
    RowBox[{"-", "0.3938388"}], ",", 
    RowBox[{"-", "0.4347258"}], ",", 
    RowBox[{"-", "0.4739874"}], ",", 
    RowBox[{"-", "0.5136340"}], ",", 
    RowBox[{"-", "0.5578058"}], ",", 
    RowBox[{"-", "0.6019778"}], ",", 
    RowBox[{"-", "0.6298202"}], ",", 
    RowBox[{"-", "0.6558788"}], ",", 
    RowBox[{"-", "0.6263651"}], ",", 
    RowBox[{"-", "0.5757356"}], ",", 
    RowBox[{"-", "0.5045665"}], ",", 
    RowBox[{"-", "0.4164410"}], ",", 
    RowBox[{"-", "0.3538976"}], ",", 
    RowBox[{"-", "0.3347429"}], ",", 
    RowBox[{"-", "0.3020453"}], ",", 
    RowBox[{"-", "0.2130964"}], ",", 
    RowBox[{"-", "0.1245627"}], ",", 
    RowBox[{"-", "0.0597879"}], ",", "0.0049870", ",", "0.0936678", ",", 
    "0.1868919", ",", "0.2749237", ",", "0.3603213", ",", "0.3932554", ",", 
    "0.3708272", ",", "0.3567149", ",", "0.3611390", ",", "0.3635896", ",", 
    "0.3531542", ",", "0.3427188", ",", "0.3056468", ",", "0.2673473", ",", 
    "0.2452382", ",", "0.2277202", ",", "0.1899935", ",", "0.1389177", ",", 
    "0.0906348", ",", "0.0461257", ",", "0.0106052", ",", "0.0022727", ",", 
    RowBox[{"-", "0.0052615"}], ",", 
    RowBox[{"-", "0.0024443"}], ",", "0.0003728", ",", "0.0138580", ",", 
    "0.0285985", ",", "0.0538493", ",", "0.0832311", ",", "0.1038658", ",", 
    "0.1170786", ",", "0.1230246", ",", "0.1162793", ",", "0.1105908", ",", 
    "0.1094897", ",", "0.1083796", ",", "0.1064056", ",", "0.1044316", ",", 
    "0.0889974", ",", "0.0708743", ",", "0.0448765", ",", "0.0147607", ",", 
    RowBox[{"-", "0.0250635"}], ",", 
    RowBox[{"-", "0.0754152"}], ",", 
    RowBox[{"-", "0.1198301"}], ",", 
    RowBox[{"-", "0.1505808"}], ",", 
    RowBox[{"-", "0.1748452"}], ",", 
    RowBox[{"-", "0.1541232"}], ",", 
    RowBox[{"-", "0.1334012"}], ",", 
    RowBox[{"-", "0.1162946"}], ",", 
    RowBox[{"-", "0.0993818"}], ",", 
    RowBox[{"-", "0.0846751"}], ",", 
    RowBox[{"-", "0.0706191"}], ",", 
    RowBox[{"-", "0.0494462"}], ",", 
    RowBox[{"-", "0.0234371"}], ",", "0.0083553", ",", "0.0481824", ",", 
    "0.0927918", ",", "0.1524085", ",", "0.2108220", ",", "0.2518692", ",", 
    "0.2929164", ",", "0.3099448", ",", "0.3239413", ",", "0.3206855", ",", 
    "0.3104188", ",", "0.3034266", ",", "0.2992902", ",", "0.2900464", ",", 
    "0.2716158", ",", "0.2506257", ",", "0.2180102", ",", "0.1853797", ",", 
    "0.1485681", ",", "0.1117566", ",", "0.0776676", ",", "0.0441494", ",", 
    "0.0206482", ",", "0.0025449", ",", 
    RowBox[{"-", "0.0125558"}], ",", 
    RowBox[{"-", "0.0243104"}], ",", 
    RowBox[{"-", "0.0354572"}], ",", 
    RowBox[{"-", "0.0451585"}], ",", 
    RowBox[{"-", "0.0519331"}], ",", 
    RowBox[{"-", "0.0370835"}], ",", 
    RowBox[{"-", "0.0222339"}], ",", 
    RowBox[{"-", "0.0125536"}], ",", 
    RowBox[{"-", "0.0031895"}], ",", 
    RowBox[{"-", "0.0069084"}], ",", 
    RowBox[{"-", "0.0146357"}], ",", 
    RowBox[{"-", "0.0190000"}], ",", 
    RowBox[{"-", "0.0210137"}], ",", 
    RowBox[{"-", "0.0260905"}], ",", 
    RowBox[{"-", "0.0355438"}], ",", 
    RowBox[{"-", "0.0455749"}], ",", 
    RowBox[{"-", "0.0574883"}], ",", 
    RowBox[{"-", "0.0707897"}], ",", 
    RowBox[{"-", "0.1066390"}], ",", 
    RowBox[{"-", "0.1424884"}], ",", 
    RowBox[{"-", "0.1868071"}], ",", 
    RowBox[{"-", "0.2322685"}], ",", 
    RowBox[{"-", "0.2854352"}], ",", 
    RowBox[{"-", "0.3418379"}], ",", 
    RowBox[{"-", "0.3852408"}], ",", 
    RowBox[{"-", "0.4169933"}], ",", 
    RowBox[{"-", "0.4507694"}], ",", 
    RowBox[{"-", "0.4882952"}], ",", 
    RowBox[{"-", "0.5275363"}], ",", 
    RowBox[{"-", "0.5749420"}], ",", 
    RowBox[{"-", "0.6223477"}], ",", 
    RowBox[{"-", "0.6402985"}], ",", 
    RowBox[{"-", "0.6581538"}], ",", 
    RowBox[{"-", "0.5869450"}], ",", 
    RowBox[{"-", "0.4961709"}], ",", 
    RowBox[{"-", "0.4335069"}], ",", 
    RowBox[{"-", "0.3864484"}], ",", 
    RowBox[{"-", "0.3379658"}], ",", 
    RowBox[{"-", "0.2878521"}], ",", 
    RowBox[{"-", "0.2302576"}], ",", 
    RowBox[{"-", "0.1542836"}], ",", 
    RowBox[{"-", "0.0791191"}], ",", 
    RowBox[{"-", "0.0103466"}], ",", "0.0584258", ",", "0.1671770", ",", 
    "0.2786829", ",", "0.3259650", ",", "0.3528173", ",", "0.3665690", ",", 
    "0.3709039", ",", "0.3699970", ",", "0.3613868", ",", "0.3504963", ",", 
    "0.3318872", ",", "0.3126434", ",", "0.2816348", ",", "0.2506262", ",", 
    "0.2195483", ",", "0.1884603", ",", "0.1495201", ",", "0.1071734", ",", 
    "0.0705431", ",", "0.0391774", ",", "0.0163556", ",", "0.0098483", ",", 
    "0.0064258", ",", "0.0184086", ",", "0.0303915", ",", "0.0426689", ",", 
    "0.0549494", ",", "0.0785940", ",", "0.1048512", ",", "0.1236424", ",", 
    "0.1381646", ",", "0.1308475", ",", "0.0978252", ",", "0.0806793", ",", 
    "0.1038613", ",", "0.1214055", ",", "0.0912004", ",", "0.0609953", ",", 
    "0.0492615", ",", "0.0389451", ",", "0.0101997", ",", 
    RowBox[{"-", "0.0246280"}], ",", 
    RowBox[{"-", "0.0746559"}], ",", 
    RowBox[{"-", "0.1359192"}], ",", 
    RowBox[{"-", "0.1703516"}], ",", 
    RowBox[{"-", "0.1642213"}], ",", 
    RowBox[{"-", "0.1571166"}], ",", 
    RowBox[{"-", "0.1465820"}], ",", 
    RowBox[{"-", "0.1354174"}], ",", 
    RowBox[{"-", "0.1106879"}], ",", 
    RowBox[{"-", "0.0859585"}], ",", 
    RowBox[{"-", "0.0710734"}], ",", 
    RowBox[{"-", "0.0576919"}], ",", 
    RowBox[{"-", "0.0307047"}], ",", "0.0023771", ",", "0.0442042", ",", 
    "0.0943080", ",", "0.1448897", ",", "0.1964119", ",", "0.2435324", ",", 
    "0.2675477", ",", "0.2915629", ",", "0.3033974", ",", "0.3150231", ",", 
    "0.3174112", ",", "0.3175798", ",", "0.3051116", ",", "0.2852030", ",", 
    "0.2650026", ",", "0.2444493", ",", "0.2207020", ",", "0.1885625", ",", 
    "0.1567730", ",", "0.1281749", ",", "0.0995767", ",", "0.0710883", ",", 
    "0.0426093", ",", "0.0278103", ",", "0.0176923", ",", 
    RowBox[{"-", "0.0021763"}], ",", 
    RowBox[{"-", "0.0294551"}], ",", 
    RowBox[{"-", "0.0397282"}], ",", 
    RowBox[{"-", "0.0235493"}], ",", 
    RowBox[{"-", "0.0095190"}], ",", 
    RowBox[{"-", "0.0033589"}], ",", "0.0028183", ",", "0.0094346", ",", 
    "0.0160510", ",", "0.0112437", ",", "0.0045877", ",", 
    RowBox[{"-", "0.0057924"}], ",", 
    RowBox[{"-", "0.0178943"}], ",", 
    RowBox[{"-", "0.0315300"}], ",", 
    RowBox[{"-", "0.0466573"}], ",", 
    RowBox[{"-", "0.0638967"}], ",", 
    RowBox[{"-", "0.0854221"}], ",", 
    RowBox[{"-", "0.1081255"}], ",", 
    RowBox[{"-", "0.1373387"}], ",", 
    RowBox[{"-", "0.1665518"}], ",", 
    RowBox[{"-", "0.2335268"}], ",", 
    RowBox[{"-", "0.3014163"}], ",", 
    RowBox[{"-", "0.3409067"}], ",", 
    RowBox[{"-", "0.3732743"}], ",", 
    RowBox[{"-", "0.4151283"}], ",", 
    RowBox[{"-", "0.4627323"}], ",", 
    RowBox[{"-", "0.5039914"}], ",", 
    RowBox[{"-", "0.5373608"}], ",", 
    RowBox[{"-", "0.5729653"}], ",", 
    RowBox[{"-", "0.6146473"}], ",", 
    RowBox[{"-", "0.6506267"}], ",", 
    RowBox[{"-", "0.6303213"}], ",", 
    RowBox[{"-", "0.6100160"}], ",", 
    RowBox[{"-", "0.5238339"}], ",", 
    RowBox[{"-", "0.4315422"}], ",", 
    RowBox[{"-", "0.3887772"}], ",", 
    RowBox[{"-", "0.3635716"}], ",", 
    RowBox[{"-", "0.3134348"}], ",", 
    RowBox[{"-", "0.2438193"}], ",", 
    RowBox[{"-", "0.1770796"}], ",", 
    RowBox[{"-", "0.1149434"}], ",", 
    RowBox[{"-", "0.0472850"}], ",", "0.0414456", ",", "0.1302976", ",", 
    "0.2229762", ",", "0.3156548", ",", "0.3374958", ",", "0.3472170", ",", 
    "0.3441579", ",", "0.3350021", ",", "0.3305646", ",", "0.3308424", ",", 
    "0.3269031", ",", "0.3141366", ",", "0.2980368", ",", "0.2625049", ",", 
    "0.2269730", ",", "0.1982214", ",", "0.1696828", ",", "0.1297192", ",", 
    "0.0867674", ",", "0.0571995", ",", "0.0359815", ",", "0.0281436", ",", 
    "0.0374085", ",", "0.0470789", ",", "0.0578912", ",", "0.0683275", ",", 
    "0.0747256", ",", "0.0811238", ",", "0.1140118", ",", "0.1495735", ",", 
    "0.1508520", ",", "0.1395437", ",", "0.1261999", ",", "0.1112213", ",", 
    "0.1039423", ",", "0.1093485", ",", "0.1072598", ",", "0.0753485", ",", 
    "0.0439173", ",", "0.0320337", ",", "0.0201500", ",", 
    RowBox[{"-", "0.0278744"}], ",", 
    RowBox[{"-", "0.0824221"}], ",", 
    RowBox[{"-", "0.1291979"}], ",", 
    RowBox[{"-", "0.1721496"}], ",", 
    RowBox[{"-", "0.1874949"}], ",", 
    RowBox[{"-", "0.1744903"}], ",", 
    RowBox[{"-", "0.1592536"}], ",", 
    RowBox[{"-", "0.1391963"}], ",", 
    RowBox[{"-", "0.1194699"}], ",", 
    RowBox[{"-", "0.1017833"}], ",", 
    RowBox[{"-", "0.0840967"}], ",", 
    RowBox[{"-", "0.0659995"}], ",", 
    RowBox[{"-", "0.0478863"}], ",", 
    RowBox[{"-", "0.0156632"}], ",", "0.0204043", ",", "0.0703905", ",", 
    "0.1293128", ",", "0.1841071", ",", "0.2334768", ",", "0.2760377", ",", 
    "0.2987337", ",", "0.3194763", ",", "0.3172543", ",", "0.3150324", ",", 
    "0.2968477", ",", "0.2769192", ",", "0.2693761", ",", "0.2665391", ",", 
    "0.2452763", ",", "0.2088020", ",", "0.1785310", ",", "0.1587811", ",", 
    "0.1342405", ",", "0.0898008", ",", "0.0458713", ",", "0.0311506", ",", 
    "0.0164300", ",", 
    RowBox[{"-", "0.0036086"}], ",", 
    RowBox[{"-", "0.0246580"}], ",", 
    RowBox[{"-", "0.0242470"}], ",", 
    RowBox[{"-", "0.0129486"}], ",", 
    RowBox[{"-", "0.0046329"}], ",", "0.0005352", ",", "0.0072054", ",", 
    "0.0172242", ",", "0.0265263", ",", "0.0311488", ",", "0.0357713", ",", 
    "0.0169341", ",", 
    RowBox[{"-", "0.0029845"}], ",", 
    RowBox[{"-", "0.0130497"}], ",", 
    RowBox[{"-", "0.0203207"}], ",", 
    RowBox[{"-", "0.0337207"}], ",", 
    RowBox[{"-", "0.0511692"}], ",", 
    RowBox[{"-", "0.0733220"}], ",", 
    RowBox[{"-", "0.1018309"}], ",", 
    RowBox[{"-", "0.1358950"}], ",", 
    RowBox[{"-", "0.1867625"}], ",", 
    RowBox[{"-", "0.2379042"}], ",", 
    RowBox[{"-", "0.2926008"}], ",", 
    RowBox[{"-", "0.3472973"}], ",", 
    RowBox[{"-", "0.3943611"}], ",", 
    RowBox[{"-", "0.4405268"}], ",", 
    RowBox[{"-", "0.4742668"}], ",", 
    RowBox[{"-", "0.5031229"}], ",", 
    RowBox[{"-", "0.5377584"}], ",", 
    RowBox[{"-", "0.5772978"}], ",", 
    RowBox[{"-", "0.6126620"}], ",", 
    RowBox[{"-", "0.6407344"}], ",", 
    RowBox[{"-", "0.6508301"}], ",", 
    RowBox[{"-", "0.5828910"}], ",", 
    RowBox[{"-", "0.5149575"}], ",", 
    RowBox[{"-", "0.4475639"}], ",", 
    RowBox[{"-", "0.3801703"}], ",", 
    RowBox[{"-", "0.3440541"}], ",", 
    RowBox[{"-", "0.3141863"}], ",", 
    RowBox[{"-", "0.2409978"}], ",", 
    RowBox[{"-", "0.1451548"}], ",", 
    RowBox[{"-", "0.0754765"}], ",", 
    RowBox[{"-", "0.0341714"}], ",", "0.0239105"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7829796695780735`*^9, 3.7829796759829087`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"original", ":=", 
   RowBox[{"{", 
    RowBox[{
    "0.5842530", ",", "0.5848536", ",", "0.5461872", ",", "0.5075209", ",", 
     "0.5120339", ",", "0.5188416", ",", "0.5172117", ",", "0.5130993", ",", 
     "0.4965886", ",", "0.4716665", ",", "0.4498205", ",", "0.4322413", ",", 
     "0.4144054", ",", "0.3957659", ",", "0.3753236", ",", "0.3290270", ",", 
     "0.2827303", ",", "0.2698133", ",", "0.2610931", ",", "0.2259285", ",", 
     "0.1800381", ",", "0.1286916", ",", "0.0725946", ",", "0.0282515", ",", 
     "0.0050140", ",", 
     RowBox[{"-", "0.0211246"}], ",", 
     RowBox[{"-", "0.0604053"}], ",", 
     RowBox[{"-", "0.0997505"}], ",", 
     RowBox[{"-", "0.1552826"}], ",", 
     RowBox[{"-", "0.2108147"}], ",", 
     RowBox[{"-", "0.2317273"}], ",", 
     RowBox[{"-", "0.2454022"}], ",", 
     RowBox[{"-", "0.2998694"}], ",", 
     RowBox[{"-", "0.3762805"}], ",", 
     RowBox[{"-", "0.4283618"}], ",", 
     RowBox[{"-", "0.4533730"}], ",", 
     RowBox[{"-", "0.4645263"}], ",", 
     RowBox[{"-", "0.4427950"}], ",", 
     RowBox[{"-", "0.4281478"}], ",", 
     RowBox[{"-", "0.4656448"}], ",", 
     RowBox[{"-", "0.5031419"}], ",", 
     RowBox[{"-", "0.5741017"}], ",", 
     RowBox[{"-", "0.6470942"}], ",", 
     RowBox[{"-", "0.6255324"}], ",", 
     RowBox[{"-", "0.5750640"}], ",", 
     RowBox[{"-", "0.5719591"}], ",", 
     RowBox[{"-", "0.6019053"}], ",", 
     RowBox[{"-", "0.6092023"}], ",", 
     RowBox[{"-", "0.5841910"}], ",", 
     RowBox[{"-", "0.5587181"}], ",", 
     RowBox[{"-", "0.5317448"}], ",", 
     RowBox[{"-", "0.5115760"}], ",", 
     RowBox[{"-", "0.6011568"}], ",", 
     RowBox[{"-", "0.6907375"}], ",", 
     RowBox[{"-", "0.6437345"}], ",", 
     RowBox[{"-", "0.5783723"}], ",", 
     RowBox[{"-", "0.5375885"}], ",", 
     RowBox[{"-", "0.5071073"}], ",", 
     RowBox[{"-", "0.4918554"}], ",", 
     RowBox[{"-", "0.4902303"}], ",", 
     RowBox[{"-", "0.4880001"}], ",", 
     RowBox[{"-", "0.4846507"}], ",", 
     RowBox[{"-", "0.4767625"}], ",", 
     RowBox[{"-", "0.4473316"}], ",", 
     RowBox[{"-", "0.4179008"}], ",", 
     RowBox[{"-", "0.4301784"}], ",", 
     RowBox[{"-", "0.4425750"}], ",", 
     RowBox[{"-", "0.4111834"}], ",", 
     RowBox[{"-", "0.3701982"}], ",", 
     RowBox[{"-", "0.3495838"}], ",", 
     RowBox[{"-", "0.3402591"}], ",", 
     RowBox[{"-", "0.3329085"}], ",", 
     RowBox[{"-", "0.3278151"}], ",", 
     RowBox[{"-", "0.3085988"}], ",", 
     RowBox[{"-", "0.2547513"}], ",", 
     RowBox[{"-", "0.2065006"}], ",", 
     RowBox[{"-", "0.2022693"}], ",", 
     RowBox[{"-", "0.1980380"}], ",", 
     RowBox[{"-", "0.2104915"}], ",", 
     RowBox[{"-", "0.2240871"}], ",", 
     RowBox[{"-", "0.1884902"}], ",", 
     RowBox[{"-", "0.1372785"}], ",", 
     RowBox[{"-", "0.0994397"}], ",", 
     RowBox[{"-", "0.0711980"}], ",", 
     RowBox[{"-", "0.0496557"}], ",", 
     RowBox[{"-", "0.0379428"}], ",", 
     RowBox[{"-", "0.0199457"}], ",", "0.0192756", ",", "0.0567868", ",", 
     "0.0628513", ",", "0.0689159", ",", "0.0884415", ",", "0.1098953", ",", 
     "0.1420744", ",", "0.1788977", ",", "0.2042139", ",", "0.2189491", ",", 
     "0.2334150", ",", "0.2473674", ",", "0.2651791", ",", "0.3022105", ",", 
     "0.3392418", ",", "0.3444863", ",", "0.3494212", ",", "0.3726628", ",", 
     "0.4001019", ",", "0.4244687", ",", "0.4470819", ",", "0.4518457", ",", 
     "0.4356340", ",", "0.4383597", ",", "0.4890957", ",", "0.5348215", ",", 
     "0.5382897", ",", "0.5417580", ",", "0.5358627", ",", "0.5292531", ",", 
     "0.5374331", ",", "0.5504837", ",", "0.5580949", ",", "0.5616921", ",", 
     "0.5641439", ",", "0.5648673", ",", "0.5711256", ",", "0.5968205", ",", 
     "0.6203539", ",", "0.5977705", ",", "0.5751870", ",", "0.5438225", ",", 
     "0.5111216", ",", "0.5113924", ",", "0.5264051", ",", "0.5253175", ",", 
     "0.5090166", ",", "0.4937250", ",", "0.4804167", ",", "0.4651516", ",", 
     "0.4396448", ",", "0.4141381", ",", "0.3869453", ",", "0.3597242", ",", 
     "0.3151648", ",", "0.2664503", ",", "0.2460013", ",", "0.2421664", ",", 
     "0.2149024", ",", "0.1593406", ",", "0.1076989", ",", "0.0663371", ",", 
     "0.0257549", ",", 
     RowBox[{"-", "0.0077487"}], ",", 
     RowBox[{"-", "0.0412523"}], ",", 
     RowBox[{"-", "0.1045786"}], ",", 
     RowBox[{"-", "0.1704165"}], ",", 
     RowBox[{"-", "0.1998883"}], ",", 
     RowBox[{"-", "0.2169424"}], ",", 
     RowBox[{"-", "0.2475187"}], ",", 
     RowBox[{"-", "0.2883553"}], ",", 
     RowBox[{"-", "0.3336440"}], ",", 
     RowBox[{"-", "0.3858466"}], ",", 
     RowBox[{"-", "0.4333741"}], ",", 
     RowBox[{"-", "0.4638157"}], ",", 
     RowBox[{"-", "0.4927093"}], ",", 
     RowBox[{"-", "0.4823837"}], ",", 
     RowBox[{"-", "0.4720581"}], ",", 
     RowBox[{"-", "0.5208916"}], ",", 
     RowBox[{"-", "0.5792677"}], ",", 
     RowBox[{"-", "0.6050646"}], ",", 
     RowBox[{"-", "0.6158262"}], ",", 
     RowBox[{"-", "0.6073571"}], ",", 
     RowBox[{"-", "0.5802154"}], ",", 
     RowBox[{"-", "0.5746227"}], ",", 
     RowBox[{"-", "0.6126845"}], ",", 
     RowBox[{"-", "0.6358725"}], ",", 
     RowBox[{"-", "0.5771100"}], ",", 
     RowBox[{"-", "0.5183474"}], ",", 
     RowBox[{"-", "0.5705636"}], ",", 
     RowBox[{"-", "0.6254219"}], ",", 
     RowBox[{"-", "0.6271980"}], ",", 
     RowBox[{"-", "0.6156932"}], ",", 
     RowBox[{"-", "0.5995335"}], ",", 
     RowBox[{"-", "0.5805571"}], ",", 
     RowBox[{"-", "0.5373850"}], ",", 
     RowBox[{"-", "0.4641745"}], ",", 
     RowBox[{"-", "0.4300242"}], ",", 
     RowBox[{"-", "0.5018771"}], ",", 
     RowBox[{"-", "0.5617738"}], ",", 
     RowBox[{"-", "0.5042202"}], ",", 
     RowBox[{"-", "0.4466665"}], ",", 
     RowBox[{"-", "0.4497245"}], ",", 
     RowBox[{"-", "0.4583755"}], ",", 
     RowBox[{"-", "0.4346739"}], ",", 
     RowBox[{"-", "0.3995253"}], ",", 
     RowBox[{"-", "0.3637421"}], ",", 
     RowBox[{"-", "0.3274639"}], ",", 
     RowBox[{"-", "0.3119045"}], ",", 
     RowBox[{"-", "0.3294539"}], ",", 
     RowBox[{"-", "0.3390562"}], ",", 
     RowBox[{"-", "0.3184051"}], ",", 
     RowBox[{"-", "0.2971471"}], ",", 
     RowBox[{"-", "0.2570240"}], ",", 
     RowBox[{"-", "0.2169009"}], ",", 
     RowBox[{"-", "0.2084983"}], ",", 
     RowBox[{"-", "0.2055057"}], ",", 
     RowBox[{"-", "0.1902083"}], ",", 
     RowBox[{"-", "0.1690518"}], ",", 
     RowBox[{"-", "0.1354849"}], ",", 
     RowBox[{"-", "0.0895351"}], ",", 
     RowBox[{"-", "0.0613967"}], ",", 
     RowBox[{"-", "0.0704737"}], ",", 
     RowBox[{"-", "0.0699473"}], ",", 
     RowBox[{"-", "0.0136125"}], ",", "0.0427223", ",", "0.0415706", ",", 
     "0.0386374", ",", "0.0623536", ",", "0.0930231", ",", "0.1207189", ",", 
     "0.1465626", ",", "0.1819055", ",", "0.2293715", ",", "0.2578358", ",", 
     "0.2329038", ",", "0.2149181", ",", "0.2711439", ",", "0.3273697", ",", 
     "0.3292513", ",", "0.3256740", ",", "0.3472545", ",", "0.3780528", ",", 
     "0.4106990", ",", "0.4448268", ",", "0.4658934", ",", "0.4654772", ",", 
     "0.4634039", ",", "0.4547530", ",", "0.4476819", ",", "0.5038680", ",", 
     "0.5600542", ",", "0.5537583", ",", "0.5362186", ",", "0.5399511", ",", 
     "0.5541315", ",", "0.5664476", ",", "0.5768525", ",", "0.5778401", ",", 
     "0.5585268", ",", "0.5452820", ",", "0.5693122", ",", "0.5933424", ",", 
     "0.5935220", ",", "0.5927887", ",", "0.5667488", ",", "0.5338299", ",", 
     "0.5211408", ",", "0.5214182", ",", "0.5196084", ",", "0.5150599", ",", 
     "0.5069420", ",", "0.4884313", ",", "0.4705951", ",", "0.4606460", ",", 
     "0.4506971", ",", "0.4143112", ",", "0.3750502", ",", "0.3375926", ",", 
     "0.3008189", ",", "0.2758817", ",", "0.2607005", ",", "0.2356218", ",", 
     "0.1937844", ",", "0.1507699", ",", "0.1028778", ",", "0.0552086", ",", 
     "0.0200006", ",", 
     RowBox[{"-", "0.0152075"}], ",", 
     RowBox[{"-", "0.0670436"}], ",", 
     RowBox[{"-", "0.1220307"}], ",", 
     RowBox[{"-", "0.1613424"}], ",", 
     RowBox[{"-", "0.1927155"}], ",", 
     RowBox[{"-", "0.2254252"}], ",", 
     RowBox[{"-", "0.2595432"}], ",", 
     RowBox[{"-", "0.2991551"}], ",", 
     RowBox[{"-", "0.3509910"}], ",", 
     RowBox[{"-", "0.4009262"}], ",", 
     RowBox[{"-", "0.4384926"}], ",", 
     RowBox[{"-", "0.4760591"}], ",", 
     RowBox[{"-", "0.4732738"}], ",", 
     RowBox[{"-", "0.4686460"}], ",", 
     RowBox[{"-", "0.4890210"}], ",", 
     RowBox[{"-", "0.5164700"}], ",", 
     RowBox[{"-", "0.5641081"}], ",", 
     RowBox[{"-", "0.6250606"}], ",", 
     RowBox[{"-", "0.6408904"}], ",", 
     RowBox[{"-", "0.5958523"}], ",", 
     RowBox[{"-", "0.5725815"}], ",", 
     RowBox[{"-", "0.6150134"}], ",", 
     RowBox[{"-", "0.6502787"}], ",", 
     RowBox[{"-", "0.5931512"}], ",", 
     RowBox[{"-", "0.5360236"}], ",", 
     RowBox[{"-", "0.5494925"}], ",", 
     RowBox[{"-", "0.5712336"}], ",", 
     RowBox[{"-", "0.5973164"}], ",", 
     RowBox[{"-", "0.6251022"}], ",", 
     RowBox[{"-", "0.6233128"}], ",", 
     RowBox[{"-", "0.5964684"}], ",", 
     RowBox[{"-", "0.5617064"}], ",", 
     RowBox[{"-", "0.5131406"}], ",", 
     RowBox[{"-", "0.4752340"}], ",", 
     RowBox[{"-", "0.4834786"}], ",", 
     RowBox[{"-", "0.4915064"}], ",", 
     RowBox[{"-", "0.4795953"}], ",", 
     RowBox[{"-", "0.4676842"}], ",", 
     RowBox[{"-", "0.4413702"}], ",", 
     RowBox[{"-", "0.4121871"}], ",", 
     RowBox[{"-", "0.4086623"}], ",", 
     RowBox[{"-", "0.4185321"}], ",", 
     RowBox[{"-", "0.4065771"}], ",", 
     RowBox[{"-", "0.3709926"}], ",", 
     RowBox[{"-", "0.3418603"}], ",", 
     RowBox[{"-", "0.3275512"}], ",", 
     RowBox[{"-", "0.3151221"}], ",", 
     RowBox[{"-", "0.3156870"}], ",", 
     RowBox[{"-", "0.3162518"}], ",", 
     RowBox[{"-", "0.2579051"}], ",", 
     RowBox[{"-", "0.1964273"}], ",", 
     RowBox[{"-", "0.1928182"}], ",", 
     RowBox[{"-", "0.2062355"}], ",", 
     RowBox[{"-", "0.2101534"}], ",", 
     RowBox[{"-", "0.2076265"}], ",", 
     RowBox[{"-", "0.1809061"}], ",", 
     RowBox[{"-", "0.1206274"}], ",", 
     RowBox[{"-", "0.0733849"}], ",", 
     RowBox[{"-", "0.0669636"}], ",", 
     RowBox[{"-", "0.0590374"}], ",", 
     RowBox[{"-", "0.0295273"}], ",", 
     RowBox[{"-", "0.0000172"}], ",", "0.0214298", ",", "0.0418629", ",", 
     "0.0594268", ",", "0.0758268", ",", "0.0947695", ",", "0.1159260", ",", 
     "0.1452987", ",", "0.1894252", ",", "0.2265992", ",", "0.2322773", ",", 
     "0.2379667", ",", "0.2465185", ",", "0.2550703", ",", "0.2929060", ",", 
     "0.3368640", ",", "0.3540762", ",", "0.3569004", ",", "0.3752455", ",", 
     "0.4108599", ",", "0.4406924", ",", "0.4568051", ",", "0.4696881", ",", 
     "0.4587977", ",", "0.4479074", ",", "0.4704421", ",", "0.4950075", ",", 
     "0.5230942", ",", "0.5522575", ",", "0.5548413", ",", "0.5388773", ",", 
     "0.5378969", ",", "0.5582904", ",", "0.5730355", ",", "0.5694185", ",", 
     "0.5652331", ",", "0.5518752", ",", "0.5385174", ",", "0.5579863", ",", 
     "0.5818679", ",", "0.5824209", ",", "0.5731953", ",", "0.5556439", ",", 
     "0.5306424", ",", "0.5106273", ",", "0.4998360", ",", "0.4907450", ",", 
     "0.4897243", ",", "0.4887037", ",", "0.4577727", ",", "0.4267564", ",", 
     "0.4196784", ",", "0.4178452", ",", "0.3874867", ",", "0.3413189", ",", 
     "0.3015865", ",", "0.2692126", ",", "0.2384087", ",", "0.2114552", ",", 
     "0.1832800", ",", "0.1454956", ",", "0.1077111", ",", "0.0524443", ",", 
     RowBox[{"-", "0.0040193"}], ",", 
     RowBox[{"-", "0.0346005"}], ",", 
     RowBox[{"-", "0.0569660"}], ",", 
     RowBox[{"-", "0.1030366"}], ",", 
     RowBox[{"-", "0.1661197"}], ",", 
     RowBox[{"-", "0.2126070"}], ",", 
     RowBox[{"-", "0.2347445"}], ",", 
     RowBox[{"-", "0.2619981"}], ",", 
     RowBox[{"-", "0.3065308"}], ",", 
     RowBox[{"-", "0.3512619"}], ",", 
     RowBox[{"-", "0.3996395"}], ",", 
     RowBox[{"-", "0.4480170"}], ",", 
     RowBox[{"-", "0.4679210"}], ",", 
     RowBox[{"-", "0.4837463"}], ",", 
     RowBox[{"-", "0.4838536"}], ",", 
     RowBox[{"-", "0.4771549"}], ",", 
     RowBox[{"-", "0.5174959"}], ",", 
     RowBox[{"-", "0.6010914"}], ",", 
     RowBox[{"-", "0.6450387"}], ",", 
     RowBox[{"-", "0.6134080"}], ",", 
     RowBox[{"-", "0.5867815"}], ",", 
     RowBox[{"-", "0.5850771"}], ",", 
     RowBox[{"-", "0.5833727"}], ",", 
     RowBox[{"-", "0.5848577"}], ",", 
     RowBox[{"-", "0.5863739"}], ",", 
     RowBox[{"-", "0.5717840"}], ",", 
     RowBox[{"-", "0.5535012"}], ",", 
     RowBox[{"-", "0.5796041"}], ",", 
     RowBox[{"-", "0.6310437"}], ",", 
     RowBox[{"-", "0.6485388"}], ",", 
     RowBox[{"-", "0.6261436"}], ",", 
     RowBox[{"-", "0.5915833"}], ",", 
     RowBox[{"-", "0.5261814"}], ",", 
     RowBox[{"-", "0.4677653"}], ",", 
     RowBox[{"-", "0.4682707"}], ",", 
     RowBox[{"-", "0.4687761"}], ",", 
     RowBox[{"-", "0.4797959"}], ",", 
     RowBox[{"-", "0.4916178"}], ",", 
     RowBox[{"-", "0.4692689"}], ",", 
     RowBox[{"-", "0.4356662"}], ",", 
     RowBox[{"-", "0.4249615"}], ",", 
     RowBox[{"-", "0.4311548"}], ",", 
     RowBox[{"-", "0.4174886"}], ",", 
     RowBox[{"-", "0.3738478"}], ",", 
     RowBox[{"-", "0.3403671"}], ",", 
     RowBox[{"-", "0.3425669"}], ",", 
     RowBox[{"-", "0.3438986"}], ",", 
     RowBox[{"-", "0.3267059"}], ",", 
     RowBox[{"-", "0.3095131"}], ",", 
     RowBox[{"-", "0.2856894"}], ",", 
     RowBox[{"-", "0.2608566"}], ",", 
     RowBox[{"-", "0.2226296"}], ",", 
     RowBox[{"-", "0.1784140"}], ",", 
     RowBox[{"-", "0.1844603"}], ",", 
     RowBox[{"-", "0.2380007"}], ",", 
     RowBox[{"-", "0.2490303"}], ",", 
     RowBox[{"-", "0.1765333"}], ",", 
     RowBox[{"-", "0.1114742"}], ",", 
     RowBox[{"-", "0.0853432"}], ",", 
     RowBox[{"-", "0.0592121"}], ",", 
     RowBox[{"-", "0.0633434"}], ",", 
     RowBox[{"-", "0.0679810"}], ",", 
     RowBox[{"-", "0.0257119"}], ",", "0.0277987", ",", "0.0485755", ",", 
     "0.0501115", ",", "0.0649731", ",", "0.0959300", ",", "0.1243838", ",", 
     "0.1462736", ",", "0.1681811", ",", "0.1902493", ",", "0.2123175", ",", 
     "0.2187569", ",", "0.2238801", ",", "0.2694098", ",", "0.3287372", ",", 
     "0.3508842", ",", "0.3448196", ",", "0.3523872", ",", "0.3811244", ",", 
     "0.4059721", ",", "0.4166048", ",", "0.4268783", ",", "0.4280477", ",", 
     "0.4292169", ",", "0.4678372", ",", "0.5124988", ",", "0.5418438", ",", 
     "0.5641201", ",", "0.5630231", ",", "0.5392308", ",", "0.5237958", ",", 
     "0.5252922", ",", "0.5296731", ",", "0.5499476", ",", "0.5702222", ",", 
     "0.5758430", ",", "0.5811148", ",", "0.5869572", ",", "0.5929425", ",", 
     "0.5912047", ",", "0.5847933", ",", "0.5671132", ",", "0.5354428", ",", 
     "0.5124067", ",", "0.5128030", ",", "0.5125393", ",", "0.5057910", ",", 
     "0.4990428", ",", "0.4884478", ",", "0.4774980", ",", "0.4613220", ",", 
     "0.4432968", ",", "0.4124178", ",", "0.3715119", ",", "0.3323644", ",", 
     "0.2960266", ",", "0.2638882", ",", "0.2477359", ",", "0.2308709", ",", 
     "0.1918478", ",", "0.1528247", ",", "0.1096873", ",", "0.0658483", ",", 
     "0.0205323", ",", 
     RowBox[{"-", "0.0254868"}], ",", 
     RowBox[{"-", "0.0790702"}], ",", 
     RowBox[{"-", "0.1402011"}], ",", 
     RowBox[{"-", "0.1874565"}], ",", 
     RowBox[{"-", "0.2057195"}], ",", 
     RowBox[{"-", "0.2256963"}], ",", 
     RowBox[{"-", "0.2556325"}], ",", 
     RowBox[{"-", "0.2855687"}], ",", 
     RowBox[{"-", "0.3418692"}], ",", 
     RowBox[{"-", "0.3989869"}], ",", 
     RowBox[{"-", "0.4392867"}], ",", 
     RowBox[{"-", "0.4751982"}], ",", 
     RowBox[{"-", "0.4811714"}], ",", 
     RowBox[{"-", "0.4684974"}], ",", 
     RowBox[{"-", "0.4814521"}], ",", 
     RowBox[{"-", "0.5271145"}], ",", 
     RowBox[{"-", "0.5688263"}], ",", 
     RowBox[{"-", "0.5994364"}], ",", 
     RowBox[{"-", "0.6245898"}], ",", 
     RowBox[{"-", "0.5914429"}], ",", 
     RowBox[{"-", "0.5582960"}], ",", 
     RowBox[{"-", "0.5886870"}], ",", 
     RowBox[{"-", "0.6254607"}], ",", 
     RowBox[{"-", "0.5972700"}], ",", 
     RowBox[{"-", "0.5452755"}], ",", 
     RowBox[{"-", "0.5467465"}], ",", 
     RowBox[{"-", "0.5910909"}], ",", 
     RowBox[{"-", "0.6197665"}], ",", 
     RowBox[{"-", "0.6226699"}], ",", 
     RowBox[{"-", "0.6167017"}], ",", 
     RowBox[{"-", "0.5755184"}], ",", 
     RowBox[{"-", "0.5343558"}], ",", 
     RowBox[{"-", "0.4940245"}], ",", 
     RowBox[{"-", "0.4536934"}], ",", 
     RowBox[{"-", "0.4678659"}], ",", 
     RowBox[{"-", "0.4918466"}], ",", 
     RowBox[{"-", "0.4824938"}], ",", 
     RowBox[{"-", "0.4567691"}], ",", 
     RowBox[{"-", "0.4338430"}], ",", 
     RowBox[{"-", "0.4137864"}], ",", 
     RowBox[{"-", "0.3943328"}], ",", 
     RowBox[{"-", "0.3761788"}], ",", 
     RowBox[{"-", "0.3573825"}], ",", 
     RowBox[{"-", "0.3346404"}], ",", 
     RowBox[{"-", "0.3118984"}], ",", 
     RowBox[{"-", "0.3305586"}], ",", 
     RowBox[{"-", "0.3508034"}], ",", 
     RowBox[{"-", "0.3198978"}], ",", 
     RowBox[{"-", "0.2750876"}], ",", 
     RowBox[{"-", "0.2454648"}], ",", 
     RowBox[{"-", "0.2255766"}], ",", 
     RowBox[{"-", "0.2120233"}], ",", 
     RowBox[{"-", "0.2067812"}], ",", 
     RowBox[{"-", "0.2036748"}], ",", 
     RowBox[{"-", "0.2067863"}], ",", 
     RowBox[{"-", "0.2049062"}], ",", 
     RowBox[{"-", "0.1446572"}], ",", 
     RowBox[{"-", "0.0844082"}], ",", 
     RowBox[{"-", "0.0755938"}], ",", 
     RowBox[{"-", "0.0723733"}], ",", 
     RowBox[{"-", "0.0342135"}], ",", "0.0171963", ",", "0.0393439", ",", 
     "0.0373719", ",", "0.0463497", ",", "0.0738680", ",", "0.0996254", ",", 
     "0.1180865", ",", "0.1369762", ",", "0.1798442", ",", "0.2227121", ",", 
     "0.2305996", ",", "0.2318581", ",", "0.2527651", ",", "0.2836229", ",", 
     "0.3101427", ",", "0.3320920", ",", "0.3508027", ",", "0.3623075", ",", 
     "0.3760865", ",", "0.4046652", ",", "0.4332438", ",", "0.4314971", ",", 
     "0.4283658", ",", "0.4495572", ",", "0.4776305", ",", "0.5057157", ",", 
     "0.5338088", ",", "0.5525323", ",", "0.5586166", ",", "0.5589209", ",", 
     "0.5417776", ",", "0.5276473", ",", "0.5523612", ",", "0.5770752", ",", 
     "0.5844750", ",", "0.5898459", ",", "0.5965905", ",", "0.6038738", ",", 
     "0.6011361", ",", "0.5899088", ",", "0.5781108", ",", "0.5653178", ",", 
     "0.5493231", ",", "0.5194662", ",", "0.4900224", ",", "0.4985841", ",", 
     "0.5071458", ",", "0.4932976", ",", "0.4749850", ",", "0.4514250", ",", 
     "0.4251255", ",", "0.4004389", ",", "0.3774987", ",", "0.3530709", ",", 
     "0.3252256", ",", "0.2954914", ",", "0.2527027", ",", "0.2099140", ",", 
     "0.1897170", ",", "0.1707207", ",", "0.1243828", ",", "0.0700002", ",", 
     "0.0259847", ",", 
     RowBox[{"-", "0.0109971"}], ",", 
     RowBox[{"-", "0.0523086"}], ",", 
     RowBox[{"-", "0.0996259"}], ",", 
     RowBox[{"-", "0.1435588"}], ",", 
     RowBox[{"-", "0.1768939"}], ",", 
     RowBox[{"-", "0.2113451"}], ",", 
     RowBox[{"-", "0.2618037"}], ",", 
     RowBox[{"-", "0.3122622"}], ",", 
     RowBox[{"-", "0.3581346"}], ",", 
     RowBox[{"-", "0.4034303"}], ",", 
     RowBox[{"-", "0.4474501"}], ",", 
     RowBox[{"-", "0.4909523"}], ",", 
     RowBox[{"-", "0.5041333"}], ",", 
     RowBox[{"-", "0.4909142"}], ",", 
     RowBox[{"-", "0.4943650"}], ",", 
     RowBox[{"-", "0.5277496"}], ",", 
     RowBox[{"-", "0.5655350"}], ",", 
     RowBox[{"-", "0.6232572"}], ",", 
     RowBox[{"-", "0.6805736"}], ",", 
     RowBox[{"-", "0.6356148"}], ",", 
     RowBox[{"-", "0.5906559"}], ",", 
     RowBox[{"-", "0.6115344"}], ",", 
     RowBox[{"-", "0.6461775"}], ",", 
     RowBox[{"-", "0.6203967"}], ",", 
     RowBox[{"-", "0.5621097"}], ",", 
     RowBox[{"-", "0.5487576"}], ",", 
     RowBox[{"-", "0.5854025"}], ",", 
     RowBox[{"-", "0.6137217"}], ",", 
     RowBox[{"-", "0.6222833"}], ",", 
     RowBox[{"-", "0.6279581"}], ",", 
     RowBox[{"-", "0.6123805"}], ",", 
     RowBox[{"-", "0.5968030"}], ",", 
     RowBox[{"-", "0.5164679"}], ",", 
     RowBox[{"-", "0.4321986"}], ",", 
     RowBox[{"-", "0.4544050"}], ",", 
     RowBox[{"-", "0.5091642"}], ",", 
     RowBox[{"-", "0.5096909"}], ",", 
     RowBox[{"-", "0.4723722"}], ",", 
     RowBox[{"-", "0.4447770"}], ",", 
     RowBox[{"-", "0.4310525"}], ",", 
     RowBox[{"-", "0.4177360"}], ",", 
     RowBox[{"-", "0.4057457"}], ",", 
     RowBox[{"-", "0.3925192"}], ",", 
     RowBox[{"-", "0.3593525"}], ",", 
     RowBox[{"-", "0.3261858"}], ",", 
     RowBox[{"-", "0.3246054"}], ",", 
     RowBox[{"-", "0.3272710"}], ",", 
     RowBox[{"-", "0.3100716"}], ",", 
     RowBox[{"-", "0.2845450"}], ",", 
     RowBox[{"-", "0.2521518"}], ",", 
     RowBox[{"-", "0.2136142"}], ",", 
     RowBox[{"-", "0.1893431"}], ",", 
     RowBox[{"-", "0.1914637"}], ",", 
     RowBox[{"-", "0.1927049"}], ",", 
     RowBox[{"-", "0.1897717"}], ",", 
     RowBox[{"-", "0.1868385"}], ",", 
     RowBox[{"-", "0.1253795"}], ",", 
     RowBox[{"-", "0.0637531"}], ",", 
     RowBox[{"-", "0.0469388"}], ",", 
     RowBox[{"-", "0.0399428"}], ",", 
     RowBox[{"-", "0.0200741"}], ",", "0.0069290", ",", "0.0291610", ",", 
     "0.0459376", ",", "0.0618588", ",", "0.0756824", ",", "0.0920175", ",", 
     "0.1281074", ",", "0.1641973", ",", "0.1990631", ",", "0.2338450", ",", 
     "0.2365091", ",", "0.2289780", ",", "0.2389617", ",", "0.2615154", ",", 
     "0.2932144", ",", "0.3383318", ",", "0.3744533", ",", "0.3801908", ",", 
     "0.3868543", ",", "0.4105476", ",", "0.4342410", ",", "0.4519882", ",", 
     "0.4688837", ",", "0.4724193", ",", "0.4701700", ",", "0.4945944", ",", 
     "0.5435467", ",", "0.5721091", ",", "0.5618034", ",", "0.5513253", ",", 
     "0.5399890", ",", "0.5286527", ",", "0.5625477", ",", "0.5968837", ",", 
     "0.5854653", ",", "0.5635557", ",", "0.5688035", ",", "0.5895537", ",", 
     "0.5992519", ",", "0.5959620", ",", "0.5855413", ",", "0.5570419", ",", 
     "0.5297714", ",", "0.5128660", ",", "0.4959606", ",", "0.5040614", ",", 
     "0.5140699", ",", "0.4945742", ",", "0.4653613", ",", "0.4516000", ",", 
     "0.4492415", ",", "0.4321337", ",", "0.3927638", ",", "0.3542899", ",", 
     "0.3189630", ",", "0.2838277", ",", "0.2527816", ",", "0.2217355", ",", 
     "0.2063678", ",", "0.1933865", ",", "0.1381075", ",", "0.0639160", ",", 
     "0.0178536", ",", 
     RowBox[{"-", "0.0016282"}], ",", 
     RowBox[{"-", "0.0351041"}], ",", 
     RowBox[{"-", "0.0960765"}], ",", 
     RowBox[{"-", "0.1539190"}], ",", 
     RowBox[{"-", "0.1953798"}], ",", 
     RowBox[{"-", "0.2368406"}], ",", 
     RowBox[{"-", "0.2622299"}], ",", 
     RowBox[{"-", "0.2873501"}], ",", 
     RowBox[{"-", "0.3300083"}], ",", 
     RowBox[{"-", "0.3768698"}], ",", 
     RowBox[{"-", "0.4263337"}], ",", 
     RowBox[{"-", "0.4773273"}], ",", 
     RowBox[{"-", "0.5011222"}], ",", 
     RowBox[{"-", "0.4920651"}], ",", 
     RowBox[{"-", "0.4944344"}], ",", 
     RowBox[{"-", "0.5267686"}], ",", 
     RowBox[{"-", "0.5616093"}], ",", 
     RowBox[{"-", "0.6192125"}], ",", 
     RowBox[{"-", "0.6768157"}], ",", 
     RowBox[{"-", "0.6177522"}], ",", 
     RowBox[{"-", "0.5488622"}], ",", 
     RowBox[{"-", "0.5776344"}], ",", 
     RowBox[{"-", "0.6397563"}], ",", 
     RowBox[{"-", "0.6342111"}], ",", 
     RowBox[{"-", "0.5773215"}], ",", 
     RowBox[{"-", "0.5570114"}], ",", 
     RowBox[{"-", "0.5935076"}], ",", 
     RowBox[{"-", "0.6255992"}], ",", 
     RowBox[{"-", "0.6415929"}], ",", 
     RowBox[{"-", "0.6553924"}], ",", 
     RowBox[{"-", "0.6135848"}], ",", 
     RowBox[{"-", "0.5717771"}], ",", 
     RowBox[{"-", "0.5139191"}], ",", 
     RowBox[{"-", "0.4534719"}], ",", 
     RowBox[{"-", "0.4586028"}], ",", 
     RowBox[{"-", "0.4939991"}], ",", 
     RowBox[{"-", "0.4994565"}], ",", 
     RowBox[{"-", "0.4758424"}], ",", 
     RowBox[{"-", "0.4538757"}], ",", 
     RowBox[{"-", "0.4352460"}], ",", 
     RowBox[{"-", "0.4178843"}], ",", 
     RowBox[{"-", "0.4075092"}], ",", 
     RowBox[{"-", "0.3971341"}], ",", 
     RowBox[{"-", "0.3544413"}], ",", 
     RowBox[{"-", "0.3109787"}], ",", 
     RowBox[{"-", "0.3030335"}], ",", 
     RowBox[{"-", "0.3039749"}], ",", 
     RowBox[{"-", "0.2949893"}], ",", 
     RowBox[{"-", "0.2799963"}], ",", 
     RowBox[{"-", "0.2594819"}], ",", 
     RowBox[{"-", "0.2321122"}], ",", 
     RowBox[{"-", "0.2084058"}], ",", 
     RowBox[{"-", "0.1946417"}], ",", 
     RowBox[{"-", "0.1826344"}], ",", 
     RowBox[{"-", "0.1878863"}], ",", 
     RowBox[{"-", "0.1931383"}], ",", 
     RowBox[{"-", "0.1279993"}], ",", 
     RowBox[{"-", "0.0563645"}], ",", 
     RowBox[{"-", "0.0385498"}], ",", 
     RowBox[{"-", "0.0397785"}], ",", 
     RowBox[{"-", "0.0310538"}], ",", 
     RowBox[{"-", "0.0145646"}], ",", "0.0080768", ",", "0.0405498", ",", 
     "0.0670817", ",", "0.0709959", ",", "0.0759235", ",", "0.1123603", ",", 
     "0.1487971", ",", "0.1850984", ",", "0.2213766", ",", "0.2312199", ",", 
     "0.2284750", ",", "0.2342863", ",", "0.2486350", ",", "0.2712750", ",", 
     "0.3112395", ",", "0.3480225", ",", "0.3663152", ",", "0.3846079", ",", 
     "0.4038330", ",", "0.4230869", ",", "0.4310478", ",", "0.4360619", ",", 
     "0.4477377", ",", "0.4635630", ",", "0.4865105", ",", "0.5185475", ",", 
     "0.5450242", ",", "0.5558749", ",", "0.5648931", ",", "0.5543297", ",", 
     "0.5437663", ",", "0.5426219", ",", "0.5424237", ",", "0.5517837", ",", 
     "0.5646461", ",", "0.5759411", ",", "0.5859793", ",", "0.5922184", ",", 
     "0.5922084", ",", "0.5881147", ",", "0.5678104", ",", "0.5475708", ",", 
     "0.5299222", ",", "0.5122736", ",", "0.5068610", ",", "0.5036503", ",", 
     "0.4955287", ",", "0.4849950", ",", "0.4710806", ",", "0.4536995", ",", 
     "0.4330403", ",", "0.4053139", ",", "0.3775874", ",", "0.3498610", ",", 
     "0.3221346", ",", "0.2818291", ",", "0.2410421", ",", "0.2117396", ",", 
     "0.1855590", ",", "0.1426151", ",", "0.0889261", ",", "0.0465349", ",", 
     "0.0189671", ",", 
     RowBox[{"-", "0.0148455"}], ",", 
     RowBox[{"-", "0.0668400"}], ",", 
     RowBox[{"-", "0.1179141"}], ",", 
     RowBox[{"-", "0.1582254"}], ",", 
     RowBox[{"-", "0.1985368"}], ",", 
     RowBox[{"-", "0.2456316"}], ",", 
     RowBox[{"-", "0.2934641"}], ",", 
     RowBox[{"-", "0.3383150"}], ",", 
     RowBox[{"-", "0.3820352"}], ",", 
     RowBox[{"-", "0.4199052"}], ",", 
     RowBox[{"-", "0.4529529"}], ",", 
     RowBox[{"-", "0.4738406"}], ",", 
     RowBox[{"-", "0.4741379"}], ",", 
     RowBox[{"-", "0.4788163"}], ",", 
     RowBox[{"-", "0.5016475"}], ",", 
     RowBox[{"-", "0.5252108"}], ",", 
     RowBox[{"-", "0.5897505"}], ",", 
     RowBox[{"-", "0.6542903"}], ",", 
     RowBox[{"-", "0.6319582"}], ",", 
     RowBox[{"-", "0.5931630"}], ",", 
     RowBox[{"-", "0.6014726"}], ",", 
     RowBox[{"-", "0.6336384"}], ",", 
     RowBox[{"-", "0.6275977"}], ",", 
     RowBox[{"-", "0.5813011"}], ",", 
     RowBox[{"-", "0.5565557"}], ",", 
     RowBox[{"-", "0.5797634"}], ",", 
     RowBox[{"-", "0.6027125"}], ",", 
     RowBox[{"-", "0.6239780"}], ",", 
     RowBox[{"-", "0.6452435"}], ",", 
     RowBox[{"-", "0.6293797"}], ",", 
     RowBox[{"-", "0.6118202"}], ",", 
     RowBox[{"-", "0.5677291"}], ",", 
     RowBox[{"-", "0.5161310"}], ",", 
     RowBox[{"-", "0.4965866"}], ",", 
     RowBox[{"-", "0.4981820"}], ",", 
     RowBox[{"-", "0.4922768"}], ",", 
     RowBox[{"-", "0.4762533"}], ",", 
     RowBox[{"-", "0.4561907"}], ",", 
     RowBox[{"-", "0.4239357"}], ",", 
     RowBox[{"-", "0.3939038"}], ",", 
     RowBox[{"-", "0.3925363"}], ",", 
     RowBox[{"-", "0.3911688"}], ",", 
     RowBox[{"-", "0.3881959"}], ",", 
     RowBox[{"-", "0.3850347"}], ",", 
     RowBox[{"-", "0.3716960"}], ",", 
     RowBox[{"-", "0.3543645"}], ",", 
     RowBox[{"-", "0.3256387"}], ",", 
     RowBox[{"-", "0.2872597"}], ",", 
     RowBox[{"-", "0.2464246"}], ",", 
     RowBox[{"-", "0.2013072"}], ",", 
     RowBox[{"-", "0.1663857"}], ",", 
     RowBox[{"-", "0.1756113"}], ",", 
     RowBox[{"-", "0.1850342"}], ",", 
     RowBox[{"-", "0.2126120"}], ",", 
     RowBox[{"-", "0.2401898"}], ",", 
     RowBox[{"-", "0.1882010"}], ",", 
     RowBox[{"-", "0.1203614"}], ",", 
     RowBox[{"-", "0.0868324"}], ",", 
     RowBox[{"-", "0.0712152"}], ",", 
     RowBox[{"-", "0.0380558"}], ",", "0.0140972", ",", "0.0468849", ",", 
     "0.0351819", ",", "0.0290989", ",", "0.0618593", ",", "0.0946197", ",", 
     "0.0858103", ",", "0.0747910", ",", "0.1266166", ",", "0.1969335", ",", 
     "0.2292828", ",", "0.2358726", ",", "0.2511548", ",", "0.2784948", ",", 
     "0.2994812", ",", "0.3005712", ",", "0.3033293", ",", "0.3300153", ",", 
     "0.3567012", ",", "0.3745671", ",", "0.3913238", ",", "0.4107102", ",", 
     "0.4311631", ",", "0.4567013", ",", "0.4866673", ",", "0.5100867", ",", 
     "0.5217500", ",", "0.5319924", ",", "0.5357976", ",", "0.5395850", ",", 
     "0.5388715", ",", "0.5381580", ",", "0.5394115", ",", "0.5410763", ",", 
     "0.5596221", ",", "0.5872494", ",", "0.6028082", ",", "0.6049388", ",", 
     "0.6056033", ",", "0.6027891", ",", "0.5978535", ",", "0.5773015", ",", 
     "0.5567494", ",", "0.5418211", ",", "0.5272345", ",", "0.5274619", ",", 
     "0.5322184", ",", "0.5273330", ",", "0.5157192", ",", "0.4943617", ",", 
     "0.4591041", ",", "0.4289492", ",", "0.4153833", ",", "0.4011424", ",", 
     "0.3760122", ",", "0.3508821", ",", "0.3198557", ",", "0.2880367", ",", 
     "0.2565389", ",", "0.2251757", ",", "0.1747867", ",", "0.1073733", ",", 
     "0.0548520", ",", "0.0298804", ",", "0.0013255", ",", 
     RowBox[{"-", "0.0442378"}]}], "}"}]}], "\n"}]], "Input",
 CellChangeTimes->{{3.7831645149099846`*^9, 3.7831645191890163`*^9}}],

Cell[BoxData[
 RowBox[{"original", ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "0.0063099"}], ",", 
    RowBox[{"-", "0.0092414"}], ",", 
    RowBox[{"-", "0.0096690"}], ",", 
    RowBox[{"-", "0.0027660"}], ",", "0.0047900", ",", "0.0200916", ",", 
    "0.0353932", ",", "0.0315657", ",", "0.0256333", ",", "0.0202816", ",", 
    "0.0151513", ",", "0.0130447", ",", "0.0134409", ",", "0.0155349", ",", 
    "0.0205166", ",", "0.0240752", ",", "0.0216983", ",", "0.0192991", ",", 
    "0.0155752", ",", "0.0118513", ",", "0.0008594", ",", 
    RowBox[{"-", "0.0115206"}], ",", 
    RowBox[{"-", "0.0174349"}], ",", 
    RowBox[{"-", "0.0200594"}], ",", 
    RowBox[{"-", "0.0176791"}], ",", 
    RowBox[{"-", "0.0100036"}], ",", "0.0005918", ",", "0.0177158", ",", 
    "0.0349418", ",", "0.0528383", ",", "0.0707347", ",", "0.0540696", ",", 
    "0.0357869", ",", "0.0206805", ",", "0.0064782", ",", 
    RowBox[{"-", "0.0006702"}], ",", 
    RowBox[{"-", "0.0031462"}], ",", "0.0041904", ",", "0.0248204", ",", 
    "0.0374936", ",", "0.0260149", ",", "0.0138133", ",", 
    RowBox[{"-", "0.0078566"}], ",", 
    RowBox[{"-", "0.0295264"}], ",", 
    RowBox[{"-", "0.0397294"}], ",", 
    RowBox[{"-", "0.0485736"}], ",", 
    RowBox[{"-", "0.0401076"}], ",", 
    RowBox[{"-", "0.0248159"}], ",", 
    RowBox[{"-", "0.0053181"}], ",", "0.0177582", ",", "0.0310110", ",", 
    "0.0270593", ",", "0.0224627", ",", "0.0150546", ",", "0.0076206", ",", 
    RowBox[{"-", "0.0024418"}], ",", 
    RowBox[{"-", "0.0125042"}], ",", 
    RowBox[{"-", "0.0068946"}], ",", "0.0018605", ",", "0.0117200", ",", 
    "0.0221588", ",", "0.0210957", ",", "0.0075273", ",", 
    RowBox[{"-", "0.0065769"}], ",", 
    RowBox[{"-", "0.0219182"}], ",", 
    RowBox[{"-", "0.0348669"}], ",", 
    RowBox[{"-", "0.0311232"}], ",", 
    RowBox[{"-", "0.0273796"}], ",", 
    RowBox[{"-", "0.0458897"}], ",", 
    RowBox[{"-", "0.0656085"}], ",", 
    RowBox[{"-", "0.0564250"}], ",", 
    RowBox[{"-", "0.0386870"}], ",", 
    RowBox[{"-", "0.0368647"}], ",", 
    RowBox[{"-", "0.0458872"}], ",", 
    RowBox[{"-", "0.0509408"}], ",", 
    RowBox[{"-", "0.0504654"}], ",", 
    RowBox[{"-", "0.0519473"}], ",", 
    RowBox[{"-", "0.0595931"}], ",", 
    RowBox[{"-", "0.0667124"}], ",", 
    RowBox[{"-", "0.0661479"}], ",", 
    RowBox[{"-", "0.0655834"}], ",", 
    RowBox[{"-", "0.0406777"}], ",", 
    RowBox[{"-", "0.0126792"}], ",", "0.0111260", ",", "0.0332217", ",", 
    "0.0380441", ",", "0.0277638", ",", "0.0193556", ",", "0.0143244", ",", 
    "0.0123237", ",", "0.0241490", ",", "0.0359643", ",", "0.0443331", ",", 
    "0.0527019", ",", "0.0406836", ",", "0.0243718", ",", "0.0149844", ",", 
    "0.0093391", ",", 
    RowBox[{"-", "0.0025882"}], ",", 
    RowBox[{"-", "0.0215344"}], ",", 
    RowBox[{"-", "0.0309657"}], ",", 
    RowBox[{"-", "0.0177043"}], ",", 
    RowBox[{"-", "0.0054727"}], ",", 
    RowBox[{"-", "0.0008970"}], ",", "0.0036786", ",", 
    RowBox[{"-", "0.0023033"}], ",", 
    RowBox[{"-", "0.0089389"}], ",", 
    RowBox[{"-", "0.0065834"}], ",", 
    RowBox[{"-", "0.0014631"}], ",", 
    RowBox[{"-", "0.0002325"}], ",", 
    RowBox[{"-", "0.0017280"}], ",", 
    RowBox[{"-", "0.0016316"}], ",", "0.0007453", ",", "0.0052284", ",", 
    "0.0165981", ",", "0.0277663", ",", "0.0356202", ",", "0.0434740", ",", 
    "0.0261008", ",", "0.0053025", ",", "0.0020225", ",", "0.0061227", ",", 
    "0.0029876", ",", 
    RowBox[{"-", "0.0066490"}], ",", 
    RowBox[{"-", "0.0124188"}], ",", 
    RowBox[{"-", "0.0110025"}], ",", 
    RowBox[{"-", "0.0105918"}], ",", 
    RowBox[{"-", "0.0149892"}], ",", 
    RowBox[{"-", "0.0193865"}], ",", 
    RowBox[{"-", "0.0393416"}], ",", 
    RowBox[{"-", "0.0593575"}], ",", 
    RowBox[{"-", "0.0625457"}], ",", 
    RowBox[{"-", "0.0620208"}], ",", 
    RowBox[{"-", "0.0555538"}], ",", 
    RowBox[{"-", "0.0457786"}], ",", 
    RowBox[{"-", "0.0372435"}], ",", 
    RowBox[{"-", "0.0301325"}], ",", 
    RowBox[{"-", "0.0254140"}], ",", 
    RowBox[{"-", "0.0265926"}], ",", 
    RowBox[{"-", "0.0253982"}], ",", 
    RowBox[{"-", "0.0053427"}], ",", "0.0147128", ",", "0.0240093", ",", 
    "0.0325565", ",", "0.0390991", ",", "0.0450019", ",", "0.0465764", ",", 
    "0.0450314", ",", "0.0445995", ",", "0.0458078", ",", "0.0475971", ",", 
    "0.0513606", ",", "0.0536169", ",", "0.0275496", ",", "0.0014824", ",", 
    RowBox[{"-", "0.0064921"}], ",", 
    RowBox[{"-", "0.0118501"}], ",", 
    RowBox[{"-", "0.0145720"}], ",", 
    RowBox[{"-", "0.0161468"}], ",", 
    RowBox[{"-", "0.0156875"}], ",", 
    RowBox[{"-", "0.0133502"}], ",", 
    RowBox[{"-", "0.0141556"}], ",", 
    RowBox[{"-", "0.0209794"}], ",", 
    RowBox[{"-", "0.0263911"}], ",", 
    RowBox[{"-", "0.0247174"}], ",", 
    RowBox[{"-", "0.0230436"}], ",", 
    RowBox[{"-", "0.0194984"}], ",", 
    RowBox[{"-", "0.0159330"}], ",", 
    RowBox[{"-", "0.0160930"}], ",", 
    RowBox[{"-", "0.0171131"}], ",", 
    RowBox[{"-", "0.0114484"}], ",", 
    RowBox[{"-", "0.0019505"}], ",", "0.0037814", ",", "0.0050689", ",", 
    "0.0075901", ",", "0.0132552", ",", "0.0183714", ",", "0.0188072", ",", 
    "0.0192430", ",", "0.0179231", ",", "0.0164673", ",", "0.0148179", ",", 
    "0.0131046", ",", "0.0122899", ",", "0.0121414", ",", "0.0064857", ",", 
    RowBox[{"-", "0.0075185"}], ",", 
    RowBox[{"-", "0.0193074"}], ",", 
    RowBox[{"-", "0.0232690"}], ",", 
    RowBox[{"-", "0.0271626"}], ",", 
    RowBox[{"-", "0.0295692"}], ",", 
    RowBox[{"-", "0.0319759"}], ",", 
    RowBox[{"-", "0.0301071"}], ",", 
    RowBox[{"-", "0.0275816"}], ",", 
    RowBox[{"-", "0.0238260"}], ",", 
    RowBox[{"-", "0.0195178"}], ",", 
    RowBox[{"-", "0.0109053"}], ",", "0.0017916", ",", "0.0134095", ",", 
    "0.0228975", ",", "0.0307029", ",", "0.0296333", ",", "0.0285637", ",", 
    "0.0302576", ",", "0.0320006", ",", "0.0353475", ",", "0.0390813", ",", 
    "0.0414513", ",", "0.0430162", ",", "0.0392552", ",", "0.0290343", ",", 
    "0.0176940", ",", "0.0034025", ",", 
    RowBox[{"-", "0.0101735"}], ",", 
    RowBox[{"-", "0.0171756"}], ",", 
    RowBox[{"-", "0.0241777"}], ",", 
    RowBox[{"-", "0.0165718"}], ",", 
    RowBox[{"-", "0.0077177"}], ",", 
    RowBox[{"-", "0.0048500"}], ",", 
    RowBox[{"-", "0.0040379"}], ",", 
    RowBox[{"-", "0.0045973"}], ",", 
    RowBox[{"-", "0.0062017"}], ",", 
    RowBox[{"-", "0.0065564"}], ",", 
    RowBox[{"-", "0.0049619"}], ",", 
    RowBox[{"-", "0.0051184"}], ",", 
    RowBox[{"-", "0.0117145"}], ",", 
    RowBox[{"-", "0.0177141"}], ",", 
    RowBox[{"-", "0.0081568"}], ",", "0.0014005", ",", "0.0063582", ",", 
    "0.0105674", ",", "0.0086126", ",", "0.0037992", ",", "0.0011572", ",", 
    "0.0006323", ",", 
    RowBox[{"-", "0.0007932"}], ",", 
    RowBox[{"-", "0.0040516"}], ",", 
    RowBox[{"-", "0.0050616"}], ",", "0.0064171", ",", "0.0178958", ",", 
    "0.0220787", ",", "0.0260799", ",", "0.0259750", ",", "0.0248361", ",", 
    "0.0158803", ",", "0.0021733", ",", 
    RowBox[{"-", "0.0017743"}], ",", "0.0064460", ",", "0.0131707", ",", 
    "0.0158151", ",", "0.0179402", ",", "0.0148997", ",", "0.0118591", ",", 
    "0.0168521", ",", "0.0225964", ",", "0.0145924", ",", "0.0016974", ",", 
    "0.0022029", ",", "0.0132062", ",", "0.0192406", ",", "0.0172995", ",", 
    "0.0155879", ",", "0.0147560", ",", "0.0138721", ",", "0.0113169", ",", 
    "0.0087617", ",", 
    RowBox[{"-", "0.0001906"}], ",", 
    RowBox[{"-", "0.0102431"}], ",", 
    RowBox[{"-", "0.0144677"}], ",", 
    RowBox[{"-", "0.0159037"}], ",", 
    RowBox[{"-", "0.0122938"}], ",", 
    RowBox[{"-", "0.0036278"}], ",", "0.0016798", ",", 
    RowBox[{"-", "0.0000633"}], ",", 
    RowBox[{"-", "0.0039848"}], ",", 
    RowBox[{"-", "0.0206730"}], ",", 
    RowBox[{"-", "0.0373612"}], ",", 
    RowBox[{"-", "0.0218168"}], ",", 
    RowBox[{"-", "0.0052376"}], ",", 
    RowBox[{"-", "0.0009031"}], ",", "0.0002161", ",", 
    RowBox[{"-", "0.0012601"}], ",", 
    RowBox[{"-", "0.0043601"}], ",", 
    RowBox[{"-", "0.0079158"}], ",", 
    RowBox[{"-", "0.0120557"}], ",", 
    RowBox[{"-", "0.0138809"}], ",", 
    RowBox[{"-", "0.0091667"}], ",", 
    RowBox[{"-", "0.0034510"}], ",", "0.0131084", ",", "0.0296678", ",", 
    "0.0230703", ",", "0.0141171", ",", "0.0098757", ",", "0.0073700", ",", 
    "0.0118536", ",", "0.0219655", ",", "0.0315322", ",", "0.0401982", ",", 
    "0.0429996", ",", "0.0223696", ",", "0.0023319", ",", "0.0071056", ",", 
    "0.0118794", ",", "0.0249608", ",", "0.0395493", ",", "0.0365513", ",", 
    "0.0248745", ",", "0.0209370", ",", "0.0249679", ",", "0.0269531", ",", 
    "0.0245068", ",", "0.0238042", ",", "0.0339063", ",", "0.0440083", ",", 
    "0.0406847", ",", "0.0368321", ",", "0.0262914", ",", "0.0139214", ",", 
    "0.0047506", ",", 
    RowBox[{"-", "0.0023604"}], ",", 
    RowBox[{"-", "0.0061895"}], ",", 
    RowBox[{"-", "0.0056943"}], ",", 
    RowBox[{"-", "0.0047453"}], ",", 
    RowBox[{"-", "0.0024673"}], ",", 
    RowBox[{"-", "0.0006444"}], ",", 
    RowBox[{"-", "0.0042198"}], ",", 
    RowBox[{"-", "0.0077951"}], ",", 
    RowBox[{"-", "0.0015293"}], ",", "0.0058194", ",", "0.0036172", ",", 
    RowBox[{"-", "0.0022262"}], ",", 
    RowBox[{"-", "0.0021956"}], ",", "0.0026969", ",", "0.0031708", ",", 
    RowBox[{"-", "0.0038709"}], ",", 
    RowBox[{"-", "0.0111923"}], ",", 
    RowBox[{"-", "0.0196800"}], ",", 
    RowBox[{"-", "0.0281884"}], ",", 
    RowBox[{"-", "0.0379339"}], ",", 
    RowBox[{"-", "0.0476794"}], ",", 
    RowBox[{"-", "0.0557618"}], ",", 
    RowBox[{"-", "0.0635265"}], ",", 
    RowBox[{"-", "0.0753543"}], ",", 
    RowBox[{"-", "0.0892496"}], ",", 
    RowBox[{"-", "0.0900409"}], ",", 
    RowBox[{"-", "0.0769676"}], ",", 
    RowBox[{"-", "0.0630007"}], ",", 
    RowBox[{"-", "0.0470356"}], ",", 
    RowBox[{"-", "0.0321109"}], ",", 
    RowBox[{"-", "0.0240194"}], ",", 
    RowBox[{"-", "0.0159279"}], ",", 
    RowBox[{"-", "0.0040330"}], ",", "0.0080400", ",", "0.0222407", ",", 
    "0.0370471", ",", "0.0525208", ",", "0.0684364", ",", "0.0829515", ",", 
    "0.0955691", ",", "0.0985000", ",", "0.0720267", ",", "0.0468987", ",", 
    "0.0393915", ",", "0.0318843", ",", "0.0177537", ",", "0.0028384", ",", 
    RowBox[{"-", "0.0072398"}], ",", 
    RowBox[{"-", "0.0154106"}], ",", 
    RowBox[{"-", "0.0338505"}], ",", 
    RowBox[{"-", "0.0610270"}], ",", 
    RowBox[{"-", "0.0794888"}], ",", 
    RowBox[{"-", "0.0826878"}], ",", 
    RowBox[{"-", "0.0850534"}], ",", 
    RowBox[{"-", "0.0837857"}], ",", 
    RowBox[{"-", "0.0825008"}], ",", 
    RowBox[{"-", "0.0794603"}], ",", 
    RowBox[{"-", "0.0764197"}], ",", 
    RowBox[{"-", "0.0774787"}], ",", 
    RowBox[{"-", "0.0793604"}], ",", 
    RowBox[{"-", "0.0710814"}], ",", 
    RowBox[{"-", "0.0574734"}], ",", 
    RowBox[{"-", "0.0405771"}], ",", 
    RowBox[{"-", "0.0201056"}], ",", 
    RowBox[{"-", "0.0030464"}], ",", "0.0061346", ",", "0.0138531", ",", 
    "0.0113672", ",", "0.0088813", ",", "0.0159958", ",", "0.0236317", ",", 
    "0.0379086", ",", "0.0541511", ",", "0.0588486", ",", "0.0556793", ",", 
    "0.0445268", ",", "0.0222528", ",", "0.0029050", ",", 
    RowBox[{"-", "0.0072267"}], ",", 
    RowBox[{"-", "0.0163689"}], ",", 
    RowBox[{"-", "0.0110703"}], ",", 
    RowBox[{"-", "0.0057717"}], ",", 
    RowBox[{"-", "0.0115627"}], ",", 
    RowBox[{"-", "0.0187629"}], ",", 
    RowBox[{"-", "0.0307895"}], ",", 
    RowBox[{"-", "0.0447838"}], ",", 
    RowBox[{"-", "0.0531930"}], ",", 
    RowBox[{"-", "0.0567188"}], ",", 
    RowBox[{"-", "0.0559318"}], ",", 
    RowBox[{"-", "0.0473649"}], ",", 
    RowBox[{"-", "0.0394656"}], ",", 
    RowBox[{"-", "0.0346127"}], ",", 
    RowBox[{"-", "0.0297607"}], ",", 
    RowBox[{"-", "0.0252247"}], ",", 
    RowBox[{"-", "0.0206887"}], ",", 
    RowBox[{"-", "0.0208813"}], ",", 
    RowBox[{"-", "0.0220697"}], ",", 
    RowBox[{"-", "0.0233289"}], ",", 
    RowBox[{"-", "0.0246264"}], ",", 
    RowBox[{"-", "0.0230050"}], ",", 
    RowBox[{"-", "0.0181223"}], ",", 
    RowBox[{"-", "0.0152644"}], ",", 
    RowBox[{"-", "0.0172352"}], ",", 
    RowBox[{"-", "0.0193142"}], ",", 
    RowBox[{"-", "0.0221962"}], ",", 
    RowBox[{"-", "0.0250783"}], ",", 
    RowBox[{"-", "0.0259645"}], ",", 
    RowBox[{"-", "0.0267271"}], ",", 
    RowBox[{"-", "0.0318602"}], ",", 
    RowBox[{"-", "0.0383374"}], ",", 
    RowBox[{"-", "0.0366975"}], ",", 
    RowBox[{"-", "0.0293685"}], ",", 
    RowBox[{"-", "0.0221618"}], ",", 
    RowBox[{"-", "0.0151299"}], ",", 
    RowBox[{"-", "0.0108490"}], ",", 
    RowBox[{"-", "0.0155633"}], ",", 
    RowBox[{"-", "0.0200675"}], ",", 
    RowBox[{"-", "0.0211173"}], ",", 
    RowBox[{"-", "0.0221672"}], ",", 
    RowBox[{"-", "0.0147673"}], ",", 
    RowBox[{"-", "0.0062202"}], ",", "0.0008496", ",", "0.0072971", ",", 
    "0.0121953", ",", "0.0157013", ",", "0.0186564", ",", "0.0205877", ",", 
    "0.0224881", ",", "0.0242411", ",", "0.0259941", ",", "0.0353138", ",", 
    "0.0446631", ",", "0.0468482", ",", "0.0474523", ",", "0.0431450", ",", 
    "0.0361033", ",", "0.0254657", ",", "0.0106989", ",", 
    RowBox[{"-", "0.0004005"}], ",", 
    RowBox[{"-", "0.0024605"}], ",", 
    RowBox[{"-", "0.0051625"}], ",", 
    RowBox[{"-", "0.0129668"}], ",", 
    RowBox[{"-", "0.0207711"}], ",", 
    RowBox[{"-", "0.0079742"}], ",", "0.0062578", ",", "0.0012111", ",", 
    RowBox[{"-", "0.0099902"}], ",", 
    RowBox[{"-", "0.0130878"}], ",", 
    RowBox[{"-", "0.0103444"}], ",", 
    RowBox[{"-", "0.0092066"}], ",", 
    RowBox[{"-", "0.0104347"}], ",", 
    RowBox[{"-", "0.0091404"}], ",", "0.0007239", ",", "0.0097336", ",", 
    "0.0026820", ",", 
    RowBox[{"-", "0.0043696"}], ",", 
    RowBox[{"-", "0.0078131"}], ",", 
    RowBox[{"-", "0.0107347"}], ",", 
    RowBox[{"-", "0.0137530"}], ",", 
    RowBox[{"-", "0.0168133"}], ",", 
    RowBox[{"-", "0.0134012"}], ",", 
    RowBox[{"-", "0.0040122"}], ",", "0.0034368", ",", "0.0071706", ",", 
    "0.0095598", ",", "0.0052021", ",", "0.0008443", ",", "0.0013072", ",", 
    "0.0018222", ",", 
    RowBox[{"-", "0.0013319"}], ",", 
    RowBox[{"-", "0.0053331"}], ",", 
    RowBox[{"-", "0.0073263"}], ",", 
    RowBox[{"-", "0.0081682"}], ",", 
    RowBox[{"-", "0.0097459"}], ",", 
    RowBox[{"-", "0.0121922"}], ",", 
    RowBox[{"-", "0.0155735"}], ",", 
    RowBox[{"-", "0.0213376"}], ",", 
    RowBox[{"-", "0.0266319"}], ",", 
    RowBox[{"-", "0.0279194"}], ",", 
    RowBox[{"-", "0.0292069"}], ",", 
    RowBox[{"-", "0.0165600"}], ",", 
    RowBox[{"-", "0.0028331"}], ",", "0.0026132", ",", "0.0053170", ",", 
    "0.0116441", ",", "0.0206567", ",", "0.0277601", ",", "0.0319693", ",", 
    "0.0334564", ",", "0.0253252", ",", "0.0180631", ",", "0.0298092", ",", 
    "0.0415553", ",", "0.0477295", ",", "0.0530480", ",", "0.0525306", ",", 
    "0.0493910", ",", "0.0459567", ",", "0.0422427", ",", "0.0349389", ",", 
    "0.0205485", ",", "0.0096809", ",", "0.0173961", ",", "0.0251113", ",", 
    "0.0279222", ",", "0.0306458", ",", "0.0308162", ",", "0.0303705", ",", 
    "0.0194695", ",", "0.0023950", ",", 
    RowBox[{"-", "0.0083153"}], ",", 
    RowBox[{"-", "0.0113063"}], ",", 
    RowBox[{"-", "0.0120285"}], ",", 
    RowBox[{"-", "0.0067695"}], ",", 
    RowBox[{"-", "0.0011965"}], ",", "0.0072614", ",", "0.0157194", ",", 
    "0.0103086", ",", "0.0037126", ",", 
    RowBox[{"-", "0.0061495"}], ",", 
    RowBox[{"-", "0.0171330"}], ",", 
    RowBox[{"-", "0.0202193"}], ",", 
    RowBox[{"-", "0.0172877"}], ",", 
    RowBox[{"-", "0.0119457"}], ",", 
    RowBox[{"-", "0.0028440"}], ",", "0.0059825", ",", "0.0137967", ",", 
    "0.0216515", ",", "0.0305651", ",", "0.0394787", ",", "0.0336223", ",", 
    "0.0253624", ",", "0.0253639", ",", "0.0291967", ",", "0.0318662", ",", 
    "0.0334013", ",", "0.0359283", ",", "0.0404742", ",", "0.0442556", ",", 
    "0.0437901", ",", "0.0433246", ",", "0.0327224", ",", "0.0218677", ",", 
    "0.0028958", ",", 
    RowBox[{"-", "0.0181204"}], ",", 
    RowBox[{"-", "0.0250616"}], ",", 
    RowBox[{"-", "0.0234472"}], ",", 
    RowBox[{"-", "0.0227497"}], ",", 
    RowBox[{"-", "0.0231954"}], ",", 
    RowBox[{"-", "0.0236650"}], ",", 
    RowBox[{"-", "0.0241998"}], ",", 
    RowBox[{"-", "0.0246994"}], ",", 
    RowBox[{"-", "0.0248479"}], ",", 
    RowBox[{"-", "0.0249965"}], ",", 
    RowBox[{"-", "0.0301987"}], ",", 
    RowBox[{"-", "0.0358737"}], ",", 
    RowBox[{"-", "0.0250245"}], ",", 
    RowBox[{"-", "0.0082967"}], ",", "0.0113744", ",", "0.0333513", ",", 
    "0.0464892", ",", "0.0454394", ",", "0.0428685", ",", "0.0344700", ",", 
    "0.0261922", ",", "0.0218047", ",", "0.0174173", ",", "0.0230859", ",", 
    "0.0304842", ",", "0.0341914", ",", "0.0361326", ",", "0.0305444", ",", 
    "0.0174117", ",", "0.0055508", ",", 
    RowBox[{"-", "0.0036401"}], ",", 
    RowBox[{"-", "0.0112978"}], ",", 
    RowBox[{"-", "0.0099707"}], ",", 
    RowBox[{"-", "0.0086436"}], ",", 
    RowBox[{"-", "0.0163365"}], ",", 
    RowBox[{"-", "0.0243191"}], ",", 
    RowBox[{"-", "0.0259401"}], ",", 
    RowBox[{"-", "0.0258906"}], ",", 
    RowBox[{"-", "0.0294661"}], ",", 
    RowBox[{"-", "0.0353094"}], ",", 
    RowBox[{"-", "0.0358788"}], ",", 
    RowBox[{"-", "0.0296889"}], ",", 
    RowBox[{"-", "0.0228413"}], ",", 
    RowBox[{"-", "0.0141357"}], ",", 
    RowBox[{"-", "0.0060254"}], ",", 
    RowBox[{"-", "0.0043615"}], ",", 
    RowBox[{"-", "0.0026977"}], ",", "0.0073264", ",", "0.0182009", ",", 
    "0.0304289", ",", "0.0431555", ",", "0.0490465", ",", "0.0494328", ",", 
    "0.0467532", ",", "0.0390083", ",", "0.0330100", ",", "0.0339905", ",", 
    "0.0349689", ",", "0.0358603", ",", "0.0367517", ",", "0.0376682", ",", 
    "0.0385892", ",", "0.0331574", ",", "0.0245905", ",", "0.0125200", ",", 
    RowBox[{"-", "0.0031580"}], ",", 
    RowBox[{"-", "0.0107878"}], ",", 
    RowBox[{"-", "0.0009828"}], ",", "0.0069793", ",", "0.0035229", ",", 
    "0.0000664", ",", 
    RowBox[{"-", "0.0055531"}], ",", 
    RowBox[{"-", "0.0112578"}], ",", 
    RowBox[{"-", "0.0131363"}], ",", 
    RowBox[{"-", "0.0139682"}], ",", 
    RowBox[{"-", "0.0149568"}], ",", 
    RowBox[{"-", "0.0160462"}], ",", 
    RowBox[{"-", "0.0173322"}], ",", 
    RowBox[{"-", "0.0188773"}], ",", 
    RowBox[{"-", "0.0185765"}], ",", 
    RowBox[{"-", "0.0128718"}], ",", 
    RowBox[{"-", "0.0074212"}], ",", 
    RowBox[{"-", "0.0049848"}], ",", 
    RowBox[{"-", "0.0025484"}], ",", "0.0016099", ",", "0.0059578", ",", 
    "0.0008909", ",", 
    RowBox[{"-", "0.0077652"}], ",", 
    RowBox[{"-", "0.0132622"}], ",", 
    RowBox[{"-", "0.0161442"}], ",", 
    RowBox[{"-", "0.0134305"}], ",", 
    RowBox[{"-", "0.0011991"}], ",", "0.0106186", ",", "0.0207107", ",", 
    "0.0303788", ",", "0.0147800", ",", 
    RowBox[{"-", "0.0008187"}], ",", "0.0033407", ",", "0.0112738", ",", 
    "0.0160233", ",", "0.0191530", ",", "0.0217966", ",", "0.0239259", ",", 
    "0.0233956", ",", "0.0169185", ",", "0.0104230", ",", "0.0038071", ",", 
    RowBox[{"-", "0.0028087"}], ",", 
    RowBox[{"-", "0.0026883"}], ",", 
    RowBox[{"-", "0.0022525"}], ",", 
    RowBox[{"-", "0.0019478"}], ",", 
    RowBox[{"-", "0.0016804"}], ",", 
    RowBox[{"-", "0.0105341"}], ",", 
    RowBox[{"-", "0.0254297"}], ",", 
    RowBox[{"-", "0.0306264"}], ",", 
    RowBox[{"-", "0.0226834"}], ",", 
    RowBox[{"-", "0.0140312"}], ",", 
    RowBox[{"-", "0.0032260"}], ",", "0.0070650", ",", "0.0106206", ",", 
    "0.0141761", ",", "0.0035109", ",", 
    RowBox[{"-", "0.0088393"}], ",", 
    RowBox[{"-", "0.0120054"}], ",", 
    RowBox[{"-", "0.0115498"}], ",", 
    RowBox[{"-", "0.0076052"}], ",", 
    RowBox[{"-", "0.0006922"}], ",", "0.0063719", ",", "0.0137009", ",", 
    "0.0153607", ",", 
    RowBox[{"-", "0.0076958"}], ",", 
    RowBox[{"-", "0.0306712"}], ",", 
    RowBox[{"-", "0.0453785"}], ",", 
    RowBox[{"-", "0.0600859"}], ",", 
    RowBox[{"-", "0.0551375"}], ",", 
    RowBox[{"-", "0.0462437"}], ",", 
    RowBox[{"-", "0.0396498"}], ",", 
    RowBox[{"-", "0.0342620"}], ",", 
    RowBox[{"-", "0.0314792"}], ",", 
    RowBox[{"-", "0.0315288"}], ",", 
    RowBox[{"-", "0.0341554"}], ",", 
    RowBox[{"-", "0.0427322"}], ",", 
    RowBox[{"-", "0.0495400"}], ",", 
    RowBox[{"-", "0.0440037"}], ",", 
    RowBox[{"-", "0.0384674"}], ",", 
    RowBox[{"-", "0.0317099"}], ",", 
    RowBox[{"-", "0.0248860"}], ",", 
    RowBox[{"-", "0.0161211"}], ",", 
    RowBox[{"-", "0.0067817"}], ",", 
    RowBox[{"-", "0.0031912"}], ",", 
    RowBox[{"-", "0.0035180"}], ",", 
    RowBox[{"-", "0.0038159"}], ",", 
    RowBox[{"-", "0.0040734"}], ",", 
    RowBox[{"-", "0.0055911"}], ",", 
    RowBox[{"-", "0.0110779"}], ",", 
    RowBox[{"-", "0.0158648"}], ",", 
    RowBox[{"-", "0.0104375"}], ",", 
    RowBox[{"-", "0.0050101"}], ",", "0.0073066", ",", "0.0204986", ",", 
    "0.0236087", ",", "0.0226084", ",", "0.0146862", ",", "0.0007117", ",", 
    RowBox[{"-", "0.0084732"}], ",", 
    RowBox[{"-", "0.0090179"}], ",", 
    RowBox[{"-", "0.0091994"}], ",", 
    RowBox[{"-", "0.0077237"}], ",", 
    RowBox[{"-", "0.0062677"}], ",", 
    RowBox[{"-", "0.0115961"}], ",", 
    RowBox[{"-", "0.0169244"}], ",", 
    RowBox[{"-", "0.0291329"}], ",", 
    RowBox[{"-", "0.0427905"}], ",", 
    RowBox[{"-", "0.0575089"}], ",", 
    RowBox[{"-", "0.0728006"}], ",", 
    RowBox[{"-", "0.0769925"}], ",", 
    RowBox[{"-", "0.0687821"}], ",", 
    RowBox[{"-", "0.0630880"}], ",", 
    RowBox[{"-", "0.0633950"}], ",", 
    RowBox[{"-", "0.0629177"}], ",", 
    RowBox[{"-", "0.0566089"}], ",", 
    RowBox[{"-", "0.0503001"}], ",", 
    RowBox[{"-", "0.0625506"}], ",", 
    RowBox[{"-", "0.0759507"}], ",", 
    RowBox[{"-", "0.0650969"}], ",", 
    RowBox[{"-", "0.0467845"}], ",", 
    RowBox[{"-", "0.0375208"}], ",", 
    RowBox[{"-", "0.0345991"}], ",", 
    RowBox[{"-", "0.0274964"}], ",", 
    RowBox[{"-", "0.0144034"}], ",", 
    RowBox[{"-", "0.0029084"}], ",", "0.0033608", ",", "0.0096998", ",", 
    "0.0171872", ",", "0.0246746", ",", "0.0305227", ",", "0.0361481", ",", 
    "0.0442821", ",", "0.0534730", ",", "0.0521213", ",", "0.0412963", ",", 
    "0.0347884", ",", "0.0363037", ",", "0.0349153", ",", "0.0196434", ",", 
    "0.0043715", ",", 
    RowBox[{"-", "0.0096869"}], ",", 
    RowBox[{"-", "0.0237407"}], ",", 
    RowBox[{"-", "0.0311656"}], ",", 
    RowBox[{"-", "0.0371278"}], ",", 
    RowBox[{"-", "0.0346223"}], ",", 
    RowBox[{"-", "0.0274023"}], ",", 
    RowBox[{"-", "0.0249354"}], ",", 
    RowBox[{"-", "0.0279264"}], ",", 
    RowBox[{"-", "0.0277617"}], ",", 
    RowBox[{"-", "0.0198187"}], ",", 
    RowBox[{"-", "0.0124335"}], ",", 
    RowBox[{"-", "0.0094821"}], ",", 
    RowBox[{"-", "0.0065307"}], ",", "0.0053000", ",", "0.0177492", ",", 
    "0.0240726", ",", "0.0284403", ",", "0.0255502", ",", "0.0174290", ",", 
    "0.0156898", ",", "0.0233554", ",", "0.0285100", ",", "0.0251328", ",", 
    "0.0215379", ",", "0.0138524", ",", "0.0061669", ",", "0.0084233", ",", 
    "0.0121175", ",", "0.0133963", ",", "0.0136241", ",", "0.0096142", ",", 
    "0.0016910", ",", 
    RowBox[{"-", "0.0071460"}], ",", 
    RowBox[{"-", "0.0177334"}], ",", 
    RowBox[{"-", "0.0250079"}], ",", 
    RowBox[{"-", "0.0156586"}], ",", 
    RowBox[{"-", "0.0063093"}], ",", 
    RowBox[{"-", "0.0033678"}], ",", 
    RowBox[{"-", "0.0004956"}], ",", "0.0218001", ",", "0.0485804", ",", 
    "0.0536636", ",", "0.0463049", ",", "0.0436117", ",", "0.0464244", ",", 
    "0.0528823", ",", "0.0686296", ",", "0.0827160", ",", "0.0826368", ",", 
    "0.0825575", ",", "0.0697204", ",", "0.0558945", ",", "0.0394423", ",", 
    "0.0221203", ",", "0.0060667", ",", 
    RowBox[{"-", "0.0090467"}], ",", 
    RowBox[{"-", "0.0163346"}], ",", 
    RowBox[{"-", "0.0117590"}], ",", 
    RowBox[{"-", "0.0067442"}], ",", 
    RowBox[{"-", "0.0001779"}], ",", "0.0051471", ",", 
    RowBox[{"-", "0.0166812"}], ",", 
    RowBox[{"-", "0.0385095"}], ",", 
    RowBox[{"-", "0.0419999"}], ",", 
    RowBox[{"-", "0.0426733"}], ",", 
    RowBox[{"-", "0.0387000"}], ",", 
    RowBox[{"-", "0.0326388"}], ",", 
    RowBox[{"-", "0.0224969"}], ",", 
    RowBox[{"-", "0.0084828"}], ",", "0.0022778", ",", "0.0066158", ",", 
    "0.0091197", ",", "0.0019492", ",", 
    RowBox[{"-", "0.0052212"}], ",", 
    RowBox[{"-", "0.0084119"}], ",", 
    RowBox[{"-", "0.0115317"}], ",", "0.0009312", ",", "0.0171539", ",", 
    "0.0243598", ",", "0.0262415", ",", "0.0225559", ",", "0.0121171", ",", 
    "0.0043475", ",", "0.0036146", ",", "0.0020294", ",", 
    RowBox[{"-", "0.0073893"}], ",", 
    RowBox[{"-", "0.0168080"}], ",", 
    RowBox[{"-", "0.0147393"}], ",", 
    RowBox[{"-", "0.0116889"}], ",", 
    RowBox[{"-", "0.0132610"}], ",", 
    RowBox[{"-", "0.0164204"}], ",", 
    RowBox[{"-", "0.0170167"}], ",", 
    RowBox[{"-", "0.0156598"}], ",", 
    RowBox[{"-", "0.0098962"}], ",", "0.0027413", ",", "0.0123214", ",", 
    "0.0106575", ",", "0.0092367", ",", "0.0141590", ",", "0.0190813", ",", 
    "0.0225129", ",", "0.0257020", ",", "0.0261779", ",", "0.0253955", ",", 
    "0.0233895", ",", "0.0201906", ",", "0.0165740", ",", "0.0121073", ",", 
    "0.0057655", ",", 
    RowBox[{"-", "0.0109920"}], ",", 
    RowBox[{"-", "0.0277495"}], ",", 
    RowBox[{"-", "0.0246492"}], ",", 
    RowBox[{"-", "0.0210540"}], ",", 
    RowBox[{"-", "0.0148402"}], ",", 
    RowBox[{"-", "0.0079668"}], ",", 
    RowBox[{"-", "0.0025226"}], ",", "0.0020531", ",", "0.0010482", ",", 
    RowBox[{"-", "0.0069146"}], ",", 
    RowBox[{"-", "0.0099447"}], ",", "0.0004842", ",", "0.0100691", ",", 
    "0.0112576", ",", "0.0124461", ",", "0.0297194", ",", "0.0484973", ",", 
    "0.0442423", ",", "0.0317930", ",", "0.0197103", ",", "0.0079147", ",", 
    "0.0032243", ",", "0.0099392", ",", "0.0143397", ",", "0.0098730", ",", 
    "0.0051991", ",", 
    RowBox[{"-", "0.0061508"}], ",", 
    RowBox[{"-", "0.0175008"}], ",", 
    RowBox[{"-", "0.0228847"}], ",", 
    RowBox[{"-", "0.0272424"}], ",", 
    RowBox[{"-", "0.0258192"}], ",", 
    RowBox[{"-", "0.0216298"}], ",", 
    RowBox[{"-", "0.0178115"}], ",", 
    RowBox[{"-", "0.0143649"}], ",", 
    RowBox[{"-", "0.0127620"}], ",", 
    RowBox[{"-", "0.0150300"}], ",", 
    RowBox[{"-", "0.0173630"}], ",", 
    RowBox[{"-", "0.0200767"}], ",", 
    RowBox[{"-", "0.0227903"}], ",", 
    RowBox[{"-", "0.0117629"}], ",", 
    RowBox[{"-", "0.0002941"}], ",", "0.0093549", ",", "0.0185260", ",", 
    "0.0170171", ",", "0.0088266", ",", "0.0069256", ",", "0.0130858", ",", 
    "0.0184202", ",", "0.0214211", ",", "0.0239339", ",", "0.0211608", ",", 
    "0.0183877", ",", "0.0116413", ",", "0.0044906", ",", "0.0024570", ",", 
    "0.0023085", ",", 
    RowBox[{"-", "0.0008574"}], ",", 
    RowBox[{"-", "0.0064531"}], ",", 
    RowBox[{"-", "0.0098718"}], ",", 
    RowBox[{"-", "0.0096935"}], ",", 
    RowBox[{"-", "0.0102944"}], ",", 
    RowBox[{"-", "0.0140084"}], ",", 
    RowBox[{"-", "0.0175559"}], ",", 
    RowBox[{"-", "0.0141292"}], ",", 
    RowBox[{"-", "0.0107024"}], ",", "0.0047625", ",", "0.0224113", ",", 
    "0.0251861", ",", "0.0206204", ",", "0.0190019", ",", "0.0204182", ",", 
    "0.0224350", ",", "0.0257528", ",", "0.0293500", ",", "0.0346783", ",", 
    "0.0400067", ",", "0.0267832", ",", "0.0128285", ",", "0.0045197", ",", 
    RowBox[{"-", "0.0022447"}], ",", 
    RowBox[{"-", "0.0035866"}], ",", 
    RowBox[{"-", "0.0014375"}], ",", "0.0013655", ",", "0.0050300", ",", 
    "0.0054316", ",", 
    RowBox[{"-", "0.0037197"}], ",", 
    RowBox[{"-", "0.0129164"}], ",", 
    RowBox[{"-", "0.0226519"}], ",", 
    RowBox[{"-", "0.0323875"}], ",", 
    RowBox[{"-", "0.0345751"}], ",", 
    RowBox[{"-", "0.0359319"}], ",", 
    RowBox[{"-", "0.0274869"}], ",", 
    RowBox[{"-", "0.0153051"}], ",", 
    RowBox[{"-", "0.0104600"}], ",", 
    RowBox[{"-", "0.0116881"}], ",", 
    RowBox[{"-", "0.0124578"}], ",", 
    RowBox[{"-", "0.0124479"}], ",", 
    RowBox[{"-", "0.0116279"}], ",", 
    RowBox[{"-", "0.0074286"}], ",", 
    RowBox[{"-", "0.0032040"}], ",", "0.0025304", ",", "0.0082648", ",", 
    "0.0190385", ",", "0.0307747", ",", "0.0311880", ",", "0.0258399", ",", 
    "0.0143658", ",", 
    RowBox[{"-", "0.0035901"}], ",", 
    RowBox[{"-", "0.0185834"}], ",", 
    RowBox[{"-", "0.0269522"}], ",", 
    RowBox[{"-", "0.0342309"}], ",", 
    RowBox[{"-", "0.0343497"}], ",", 
    RowBox[{"-", "0.0344685"}], ",", 
    RowBox[{"-", "0.0454960"}], ",", 
    RowBox[{"-", "0.0570341"}], ",", 
    RowBox[{"-", "0.0575093"}], ",", 
    RowBox[{"-", "0.0548353"}], ",", 
    RowBox[{"-", "0.0449168"}], ",", 
    RowBox[{"-", "0.0301995"}], ",", 
    RowBox[{"-", "0.0154696"}], ",", 
    RowBox[{"-", "0.0007226"}], ",", "0.0105395", ",", "0.0112229", ",", 
    "0.0122378", ",", "0.0175959", ",", "0.0229539", ",", "0.0216532", ",", 
    "0.0195635", ",", "0.0262459", ",", "0.0363875", ",", "0.0275002", ",", 
    "0.0024234", ",", 
    RowBox[{"-", "0.0193886"}], ",", 
    RowBox[{"-", "0.0354826"}], ",", 
    RowBox[{"-", "0.0486385"}], ",", 
    RowBox[{"-", "0.0489852"}], ",", 
    RowBox[{"-", "0.0492654"}], ",", 
    RowBox[{"-", "0.0427684"}], ",", 
    RowBox[{"-", "0.0362714"}], ",", 
    RowBox[{"-", "0.0328181"}], ",", 
    RowBox[{"-", "0.0299756"}], ",", 
    RowBox[{"-", "0.0329541"}], ",", 
    RowBox[{"-", "0.0389856"}], ",", 
    RowBox[{"-", "0.0399591"}], ",", 
    RowBox[{"-", "0.0354330"}], ",", 
    RowBox[{"-", "0.0277851"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.783164697308917*^9, 3.7831646973149242`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", "original", "]"}]], "Input",
 CellChangeTimes->{{3.7831633507247534`*^9, 3.7831633568975687`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw1W3c81P8fl5a2SiUNp0kakiQNzxaaLimjcIpszt7cvnPHnTYplIxK0iBt
LdS3QjLa2pq0NdRPv14f//R49f6812s+X6/36/TWB9p6qKt1/HVRU/v/v///
a7XQ3j/viVdj1Hn6D9wNGF8y/p2AaA0cOGVlan9DSLQmthUv/1Cav5FoLRwq
S6k7lBFi8Y/WxsKEoyHPNm8lejgme6qd7Ku7l2gWhlc4jnIzyCJ6FHoMurBv
t8VOosfAOb1h1LHLzPxxWObW0i+nu4pofXz+b/CfSSfkRE9AH+OAfi8lCqIn
4uvRzT8vVjPfT4bbiaGly9W3EW0Ehd5WW8O8VKKnwuapcIGW2XaijREb7HJo
zKUtRE9DdHz3L0+fM+uZ4OcQW1X8IhnR07F3U2iwocEyok2xKLfhwvBUKfFn
BiKCZ68OvbuJaDO01DcrQuRbiZ6JwLAlKyN1NhNtjvNfzoRfjhURPQtNhfm3
OO4LaP3ZUPnEmQ4Zs5noObjRKMGzp3uIngubuk9jMvscJNoCcyym2h8cdpRo
4Lu7zwn1wzTOA8aPgM5+W0Y+8/D0Sf79hZOIX7x5SGox2vxEFk3j85F3NkLe
6+uif+fjzcfwJ94L+pV703kXwE7MbvlkEETzF+CAifYdkU8azV+IFc4ZIeuM
s2l8ISaX1q3PzWbkvwjcA3/Ojl2SROOLILYKV9MdwqP1LdE3PMrAcHYG7W+J
ApZbiLf9Phq3QtDj58rsh/k0boXdnH1nfsqYcWs8ell4b413Go1bo0eVeVpA
ZRiNL8bh2A9ZJlOIv7zF2N244KfDhUw63xJkvJ7+JKA4ncaXoOq7qOOEO2h8
KVr0Zk//eFtJ40uxc6DP7ArTBBpfBqVgu3utmjvtvwxaS3nsG+mJtP9yZN5e
ri2cE0vjyzFL8XA/L8aF5q/AMKuCK3lqpH+8FVgDy+f/FTH6a4MPSx3Ch+9k
5GdD54mncTa6iBXj3Fqj/60PNtQKz/NOBm2n/dhQdPLvNvDunn90GRtr3ben
XnyYSedbCRs/m7sePXbR/JX4uTy45m58Hs1fiYEf6r+f+K+I5q+ETOxUe+Zp
Ac23xTK5yqbyZjbNt8W+j2X93z/aS/NtETBh13sJs16ZLVz9NHe90jpA81fh
8Wn9urT6/TR/Fd6OmjW2PpXGeauwI3BU5i9BIc1fhbaG2Q6aWkdovh1ufDVO
799C54MdsgcZPBxwjWieHXRcnEYW15K+lNmhw9n4JH9j5LMaAwYPCjK/KvnH
T6zGjTYNy0B1sj/eapxR7Jogiib9LlsNi/beWiMCdhH/10B71Y9Vn2vIv3RI
7xvbym/4mmSavwbPKk92NpyTSPPXQJr79rPwFOOv7DEkNyf/lTfZK+zhUjK/
vfZoLs23R075o5Xnfh6g+fZYsuXb4Jjb+2i+AzRXVVS9+UzrwQGzvqfpjili
9NUBL47tqOSwhDTfAdlsztI70zzo/o64ceLzyBF9SF/giH3PjD5FFpN+8Bzx
MPF32EA98mdljhBari6V+4TTfCcUnupbt9V9Oc13wowfc9ZsGxVA+zvhnYns
isvD9TTfCZozlt1RrmDi0Vq8vTnm59RvjP6uxRD73P2H2+xp/7WID319zTNq
Ms1fi4dq0x5dsFlH89fhpmWbvv9pJ5q/Do0zh6R097Om/dfhZeaEVlefMLr/
Oqg+H9s75E8K8c8ZTgtP3rnMyBPOqPEev7VqNsmD54yRD0M4M+eTPMqc8bVr
Wg/DU4x/c0FfkXungaW0PlyQv9/DN24Th+a7YM1Y08sjtKJovguMUt0TQ6K8
aL4rAmxrHH7OiqHzu2KdcePI7oGknzxXfGhwT46WSej+rvDObLQbf0RM9+fg
TbSDS/5R5T+axYFM1NLe5+4WWo+Dp5nnem4bQ/rP4UDqrzAe5k72xOPg0IZO
pb/VyV6yOBC02p8wunCY9uPgifUak6QgsvcmDpp2lbxZwiV7VnPD3nE/Yrf2
J/tnucGlYUpjn3vkz+GGYOOgg6xuO2l/N0yYsmDSkFnptL8bVtsKHH91ovEs
Nzjy1g43f0L+u8wNK8fs335Oj/S5yQ27e0+782wbYz/r8ZGjeDD3IOEP1nqY
jU8fcr0L2QfWQ95NNDWuZ94/mrMeHs+kOfcbieatR6Tm9t5r+xKdtR432+ue
nqtj5L0eFQU3ikeG0njTesjqLufluOTT/huQrZN+sWUp2SdrA8amd8sqCKF4
jA1Q2gxY93U66RdnA7Tb8HjvYgfafwP+fHp9K2wH6X/WBqgi9iY8WCij+29A
4O6E028bkon/GxATf9bzqiyF+O+OAx9uLV+vSTTLHde1DISO9grivzteTAiK
3NWeRPx3x9i+qmOZMduI/+7gGGeeXdiN5JHljibVpr0iG4qnZe44YimtOZu6
g/Z3h9nwZVEbvpF+qXlA6lssPctm9veAo3HFx8JoouEBwcTVx7QlhJc4Hpga
fHr2/GDCUzwP7JLF+7d/dqX9PbC9OP+A4Q/yH2UesJFnxbAuhRL/PXCj1LUD
MjLxdyOOtXW+LR9LeJG1Edu0T1V+qqJ4j41I23uidup88s+cjdg9sfhh4HGi
eRvRw9D1cYATfZ+1EYrl1f/duE/+oWwjsssNHjU6MPrXsV+tT/a2egavesLu
/4CR/DvLEwPqfXV3PKB4Dk/ULlxYfz6F8BbHk+JpPN3fE1Zx1oUrrxA/szzR
9XFP/du1xO8yT4QJj5oLq0k+TZ54M6rJd4MV2ZeaF2QmYoOxrlnEfy9sChNY
edxm7M8L4gNPGhznUnzneGFdyqT/GjxSaX8vfPO7uD7qF7O/F84Mqt0uWs34
Gy+8PaZ1V+jkTPf3wuplOZnccAafe+OX2j7ToGDCSyxveJZvOruVS/gK3pAl
xA2d6pBB9/fGfjPvsBsWu4n/3nBzu2Vw5yeNZ3mjR8bLz27ryZ7LvFGb2W7d
fyj54yZv2JpcuRWuzsQ/H9TdL6vVmZlD+/ugIcpD36wb2S98sNjBo3XeUPqe
44PrDneeTjjN7O8D9yj7OZyRjPx9YA4jK9UjX9rfB48CFvdtrCP83uSDiSP1
O8VsZ/C/L16JDH/2uEj8ZPkirWRMgXEbo/++sGrfuTJ1VwLx3xfNPoZfdzwI
If77YtX54dJeci7x3xfrf3vYZtwOJv77Ij3v0YTPGymfa/LF2/RFM5/cJX+h
5ocDV3c/fWcbSvv7YdzZkz00vhENP9TnDd9ypZ3sjeOHdw4lrJzRFM95fqhT
vDEQHic8nuUHcU2Bn+7HNXR/PwxO/8nu24v0t8kPcY/NfdftExP//bGp/8Gd
Mdl84r8/fjzt3pagG0j890ey++seuV9sif/+eDNA99WI0oXEf3+YBW/p3ti+
mPb3x3LlhyHeqcSPMn/wfYJfRp6m+zT5wzTTYEKNNZO/BGCWz4eblqtIfqwA
zC0pi7qeTvgZAfjUahdedJziNScABu/6nDNKI5oXAO2AnmF7AyifyQrAW+ud
z97OZ+w/AGn5W5PP3nCj+wfgif+SkZ/7OxP/A2G2ouenkZ50HlYglqXqBsz5
Tv4Bgai8qOdRN5XW4wSil2BU0GsXJh8JxJDfFx+fFpJ/yQrEyQNWYdsWk/8o
C8S28qjFh+Ztov0DcVDQ/YxgNJOfcLF7oUF5xhPCm5pclE6wcPWuWkvn4eJ9
7M731b3W/6ONuNB9Uqd/txfZL7iYmtS16uYx8odsLr43fLz2pYT243Bh1XRc
nPSW8mUuF+Jja/9zN2PwJRd6rrvPffei/C6Fi23dRqezJ0npPlz0LMyPyPtA
+lHU8b2OQBb1U5/ky4VzxcBdq3+QfVVzobnx6q05e5h41zE/Rz6n32Kyp1Yu
jvsmvYybxOD3ILg+8Fzau9T/H60ZhPrsQaIdYub+QXAaPb60fYfmv3GjIHy+
+nynsy3pF4Kwqc8+xXJDiofsINjaWTV20iM8wwmCQWjnA2PsCR9zg1Ayy0nR
NZTwCS8I646KY8p2EP5NCUKog+TB8FUT6f5BsLCUD5ibY/dvvCgIOvNFAc/v
BdH9g1A09XuRvinZX3XH93UN+/OLKP43BUH1zeb+dn+K361BSCk4mtN+hcHP
wZigChAtWuRH9w/GcRu/A1saSf9Ywdip98Npthv5V6NgbNDtkXU2k/QHwehS
LRzs/4rkxw6Gp++0LiUzRST/YCgdFDadjCjf5AYjrFfp/GOWTL4ajPw8VZlu
PNlbSjASTsj7tY8h/50VjO12Jy7f20r+tygYvQNjxvfqwuCrYFy6djSobzPN
rw6G+GOalaPOBtL3YFyf9vz7RZ24f3RrMBK7tA00t2PqNSFwcT713lZF9qsZ
goQb+stuWtB+rBB45mP43RKKH0YhuBvahXsskr5HCLr+0lks4FJ+zQ7B5x3X
PadsonFOCN4H6rzdkUb1AW4IamxHCmy0aZwXgqmZ3W+xOIRHU0KgcXJe9oR1
lD9mhYBlwxfMk9F9i0LQR//5n0wmfysLwbCaJ1Pz79H5qkMwoeeBX3pvyT81
haDa+cShWwKST2sIrHZOjnYOY+pzociOLh86cs0Gkn8oDr+aN8/AieIFKxQ1
Jzhdmm0jSP9DMWPT58s3Ayn+IBQh5S/SlptS/YIdivUTI8MzRlA9iBOKrubv
WyqsSV+5objQEW0vvKN4xgvF9ReDXR37OpL+h+LBo9dLBtVH0P1DMfJkQnjN
Hn+6fyj+RufC2Uw+GArbOXPL+b/cSP9D8dMlw6BqyEa6fyjOLjy4OPe7N90/
FM35v3c9KA4k/Q+DZ9iZge1vCK9ohqFBIg/6PY7qcawwZO7k83wfEP4xCkNx
ZU3EAD+mXhEGncvrpwR6U32JHQYR97SkKonyHU4Y4l69q1q0gPIjbhiuvhnu
4rvkGN0/DM5rJ9f0u1NC9w/riFc3st70PkHxLAyDO9/tPe44fV8Uhu7dWU7V
LKaeEobwhviG3oNo/+oweB0vUm/gEp5rCsPJqqYceSrhi9Yw7DHlWHraMPg/
HKZ6h6Y2i8ifaYbDoyNbtIzgkf6H47xANXxhOdmXUTiKLt7yqP/G1BvC0cu4
dFenZ5S/sMMxWu/egt7iI6T/4fgZljfLZnYx6X841g5WD5wRUUr6H46Mlrzy
pTNOkv6Hw2t1K8+eS/XJrHAM1g+ZM6wz5UtF4dg9MMZL15DR/479/gi2jF5F
/qI6HM+nyLK7Tab42BSOulaZhxKeJP9wvFlX0DkmL47uH4EnPbRLd6hUdP8I
6Go2L7trR/UuVgS8NjvYvp9L+axRBH5/8bjMcTxO8o/A+hkVWt0Ni0n+EVT/
JJoTgc5Orld/BBPNjUDcrWdnr4wkmheBs5tu7xbY03opEVg5flH1nBSSd1YE
Xn7b+2RfHSP/CDh8Tt38lU3fl0WgNtVJzd34KMk/AoH7KpaM9z9E8o/Am3vv
5eJyyt9bI6CZ9+C7ajtTb47EF597ikufvej+keg18NfYVBbVG1iRGP5pW3pn
V/IfRpH41PPHhcNWFJ8Rif9GuTSvNRKQ/CNhsTL+2zQ3Bq9Eoj40Vd5sTP6N
G4lxvlHyC15MvTcSVaWDPI+cpHw3JRJ+h247eOoVkvwjMf8ea/EffgHJPxID
2TtiZlxn/H8kFEt/sLhXGf8fiW196//MvE7yboqE82Sp4Fwaybs1Eua7Dlur
X2L0Pwo3zucJuxUw9h+FpcqmN5r7yN+xouD7pNZ2SiHhX6MoRE4VvtxqytRH
ovB97xwXaynVu9hRcGqvaHvxLpfkH4U7W8peDJ99kOQfhRK10SMtepJ8eFEY
/WRXxZBs8hcpUdB5/pltCrLnrCiMYu+9VmdC8ivqWC+oT9yFUqYeGwXrzrWX
t0dRvlbdsV6OyVfebcq/m6Lwx3L7eN8phE9ao/CE7W7b7Ea0WjT2D38fz00j
fKIZjWfPTH5In1L+yIqGcZ+oU/tn0HpG0dj0cYtPppLGEY3Bk9nfcpWUD7Cj
0ZGsDf4wn+yJE43fk9Yd0cmlfIcbjapL7l11Koh/vGjgstvltFO0f0o03HzX
zmQV0n5Z0WCr/Idyt1N9pygaCe8OrHR0oXy2LBqHEwe//mFD/q46GtM3+hd+
ySL/3BSNtIyiy52vUT25NRo71+oVlA9g8t8YPKh8bLbtCHP/GAQel93w+8XU
w2IwryVZT82M9MMoBpnSMZdzH9H9EIO1W++wtiSRPbFjcK5F1Lk8k/jLiUHN
h4m7/hxl8F8MJtzdGLpyLq3Pi8HXqKkznaIp3qbE4Nrh6GFf65eS/sfAorjI
OeUp4ZeiGBw/vTLszncG38dA+3oXLzUtsrfqGJy+GFS1X4fweFMMnuVd1/+g
RfikNQa71/4tEDL4PxZnbP++KJF9asbi7mKl2DiD8AMrFtJXU3m5Wgz+icXG
Xoc+aT1k8uNY2JSVnY39RfUtdixYHdnLgaXkrzmxEFxr+zZ0CH3PjUWeofKk
XixTH42F6a1DxoUDab+UWOgsr+294hXlh1mxGJ3xdqOlhTnJv+P7zV0e99Qn
vFEWC6NluT0txxKero5Fk3Nk4BqlnOQfi9vXbr7tsojR/1g0Fx3pVGHHvB/F
Ych5kUfFHvJ3mnHYs2noydKGVXT/ODiHz/14NozyC6M4XOtTXVF+g9ZHHArf
bX4QNIXqqew4pM+f39J8l/A1Jw5hdR9PXnWhcW4c9hltLZ1WSuO8OHTxK/AW
llrR/eNw+ivn0PQWqrdnxcHewvSqqs2D5B8H3ULFpnvPGfwfB9PqBilbjcH/
cdBICOtw4bRfUxxm+Jd7yyYw+L/jvmOTw/kzmPpDPM6b1uweHEz1Ps14vPRU
ndEOJDzAikfD8yWf4sb7kfzj8XjwE6s3LqSPiMfs43f2Dt5K52XHo1/+u0HX
V1A9mxMPK88DQbwDpM/ceNzp+cXmP5/VJP94DJBrON2/S/WhlHj0nTX/jPut
1WT/8UiNctMzaCT5FsUjwsS7cLI61b/K4tH4p2Vu3Cnm/h37jzZQ5n+h9+mm
eFg7662f2Ub5UGs8TNdGXf3zjOxXLQGT/pYX75B+aCZAa4Cu0n0R+RdWAr6M
ODrj5XYG/yWg3mDRY+/m3ST/BNx9fPiqzheKJ+wEHH+o9ZM73ZPknwCDRNP+
Vl4kP24C3unfXGlVQfzhJVA9meJpSgI03l452H082WtWx/fPZeVj/Kn+W5SA
Tyc+HbNyYepbCajsfTjBWI/yheoE3FLv53nnPeUXTQn4+9o+KoHwUGsCxt2I
TlouoXxOjYdc7qfYM5ZU/9LgQfhw2AI1LtmvJg8XxbMFwwwoPmvzsHmoVvCS
50y9moeubQGfyhfv/0fr82Dqr/ltr5T8gREPYSvab9Rl0fpmPDz2PPFBwLxP
g4f9vu/iDvSk+1rzIDoywXNrLaNPPHyvthFYV1M9wYGHKYt71pSXMPkVDyMd
7XSzdxB/vHgoau9Ru8uN6odcHg7GnJ9orSQ6kofXMX0uBA0lmsdDZOvA7tUt
5C9lPOpfoPwxhYcPKSEFu7rz/8kzlQdxe/PzC+MJD2Tx0GnPl1aPvaRf+Txs
KbhUs/oUvccU8WC8JX9I7M5V/+hSHnTfupjpnSP7KePhY07uwPPa5L8reTh/
uvVhwXDyf9U8eP3J//jEm+rZjTw8GGVUP8OIqed1nPfcqQlsBdlzMw/9v7XD
5TjFo1YeZnWOb35wjMbbeHi4IbPkVzidV42P9dkFj5YtI33V4OP3ic0jhvEj
Sf58LEiwPxU0j/CfNh8DDbM3VRkS3mLxEadIHR22jPipz8enL+VOyaaEz434
cBtbN+mDKcnbjA+XmVPvprUx+TMfe9t/C38ztDUfPct2upx9TvVVNh+mA47O
ucwmfXfgY9HfdG4orcfh412w2rGpHhRPvPh4eH//NY2TtD+XjxleduKD+RR/
IvlI/Vj+Ps+XeR/l43vsTId9k4mW8SGPOqJoL6P9UvgIeejEj3Wn+6by8a0+
/Or7UsKXWXwMqlKFjWfwTz4fww7L+ef3E34p4oOjf/qzXJ3yr1I+cvZ/Fx9d
ytTn+fDcf/CDrIzoSj6OWs5ZmD2Lvq/mY5SP1eC6CqIb+She97bg+hIG3/FR
P/+vgIhu5iOvqm9pYSrRrXw4NklCvN4S3mnjQ/fo5qweLoSH1ASw0PW43DWL
vtcQYKPTypn328mfagoQe2MIK3wp+SdtAUyeKd/5DiT+swTopz77WMANsnd9
AZztXsyrW8DYvwDCPX0N739k7F+ArKb1i/rkMvYvAGf0vqusWxT/rTvmH0zN
aVtF/GYL0ONu4oyGOsb+BRh19Lf4djbhF44Ab/6bpIEZpH9eAgQ/Tu+UyKf1
uQK8UGY/bEsg/YgUoPHS8l/drRj7F+DEhkVerrdpfZkA4xwipIFnwkn+AhxW
ym421FB9MFUA4+Wjei8fzdi/AHypwzGRL+GDfAGqLiidzhwjf1EkoPd6ig+l
AoQZFUwc9pLkWSaAU1HGvp4phG8rBdi3QfuCppDoagGCGtYlrJtI8msUIGp7
zP0BWiS/JgE2L5tz4Tgjz2YBfgpnOF3eSN+3CuCv9ftI8QbSrzYBVN1yEyd9
IjygJoRRN9afwYWRJH8hfEsr5zg/IHyhKUR5z8r82KHU36UthEnVWslidarn
sYR4/an7yXnZFF/0hRCf9n5Vpk/8NRIi4Lv1kmhtsi8zIdwCvgVnDqd4ASE0
+hyTzLMh2lqIxVHf+vdoZfCkEJuSFI7P2yhfdBBCcOXx9cMvyD45QgxrOP9m
mifJ20sI0YALW4JeMvIXwnJAyB+rdYz8O/YbMNZ3ZA2DP4U4UGnc12IxrS8T
4sjYL4e/XiA6RYiq7DknO/2g/VKFSFpuKMZkpt4vxIpeLp8H7aP3u3wh+so0
7W8+pP6nIiFKv6d0ej2E8odSIZ7f/BBuoMMm+Qvx8trPLau2x5L/F6Ln+SmJ
fe8T3qoWYr/jGnZ3r/7k/4XQsVjwvvEc9U80CXHVO22NXV/Sx2YhJHt07U1e
Ej5tFcL6ZmT/dekk77YO/qhulRzcQ/mHmggjol/AJ4D0U0OEUxcOQnae4oWm
CAs1k/Q321G+pi1CJ8nzqhNdiWaJUD5vVZl0He2nL8K7mjKTIx6Ez4xECDHZ
2++DD72/mInwcVL3Orcmwu8QoXfmhq9eHCeSvwgffBMumnhS/GGLoHZpx2Tv
qctJ/iJwhpaped5k3sNESGBNcTI1IPzqJcKRFK23Osz7NleEk5fGGYfwaTxS
hDuBM25tyKF4zBNhUkads8l5ircyEWTi4qQp0wmPpIhQLPl2IWMY6XOqCN9m
aXX9sZB5bxHhBv/2/bLaJWT/IswyeJD32Zne/4pEKLvsfevEYPKfpSL4uj4P
8/Zi3odEqJgYM6BxF+GPShFa3+Vp3lnJ1DM66K7D27rzKD9rFGHplJjRXb6Q
/2sSoWX4NfagVeS/mkWwj1J3y3Og+7SKEOB+yaK/Eb2ntYnQ7eVuu0XqFO/V
xJjulTGgvCvZt4YYg7WPnqoLofqqphjq88auOvCK3te1xZCOvX1xmGwtyV+M
K3M+fHuxmfINfTH+vi7P7Un+y0iMDwVbXknWUX3ETIwf33NMVpoz9QMxQk3a
KzecIf20FiNo8wuVt7/PP5othvL66ASjVrIPBzEU+21uoIzuxxEjWFerZa0G
vV95iTGu8NygZxfJfrhidDZZe2mNDuVbkR3nq1YTLt5O+IcnxuPn01775pH9
yMQY+jvSbs840q8UMe4rXSenFlqS/xdD06f6se9Qeq/LEmNGm+fBGf0IH+WL
0W4+bl5AGL13FYnxYLfmtj1iWq9UjDjXvxGH+FHWwd/+T67dmUX9MJVi7Lry
Yu7WS9RfUy3Gjj8p8T/NqT7UKAbrypLB8w7R901irPm1TfRjGdWHmsX4Xdr+
8aqc6kOtYkyYqH6o50iqj7R1nCfn0nf5GKLVJLAu/NqrJpa+15DA6EXb0d9N
OSR/Ca73KlKtcKb+Om0JNqy+qZ8npfoWS4IfGW8v/DlC9RZ9CcLN3xRazab1
jSSQrxYanYghfGEmQZa+TnFvAfO+LUG8j9tpVgXhZWsJQh+vDA0Yw8hfgioB
+2FFDb1POUgwvjy5RDyf6vecjv1tE38tPEz5qpcEk1s40UdekH/kdsw/cWCT
ehH530gJ7q/bc/z+XNqfJ0HF0hmJ8zikvzIJ3rI8oiPF5K9SJFioV8qTvCO8
niqBqSj04rZ26kfOkiDs2M4ejyeSfeZLULkvrGf+OLLPIgmWlGV4XB9I/qJU
gvzYc8Mn2lK+XyZB45XReR5OhBcqJZjWltX7RwTpa7UEA3hjNo1qILpRAt68
iPdP9pI+NUnQb/uaZv0CygeaJeDXDjY+ep70uVWCFdIu8/fYMfhfghj7T7c6
11H+qiZF3lH9t3ubSd4aUjwzDYu6GUT1SU0pKvvruffLpvqythRTFIk3Koqp
Hs2S4v/PE+nUT6kvxUO9K2qJ4+h9wkiKnvdPpeeZE23WQb+tb3AdxvRbSlE8
Y1Vsw0/Sb2sp1uxos24pI31jS6FydnjH7kzfO0jR9VT6Mn4Q7c+R4qXh5jKj
AzTuJYWr6xvb0Z/JPrhSOL+u13s3nfQzUoqVhh/Gfi8hfedJIX3T3bCLPuX3
Mil0BuzKlCbQ+3GKFMf0rdatrSV/mSol/0f+PUsKw2qzkXEPKF/NlyIpJztC
nEb+uKiDP08ncJYtJLxQKsW6qDEn7edRPCmT4n2XrK9qAsIjlVI8PpRaMqaA
8FK1FDV63DHVHMq/G6WYtfPO7n2HKf9u6jgPnj29OobwdbMUbUEqtatVhH9a
pVi8LVhj43Zav02K0Vvm9/NtYvrDZdhoZjd/4wjSZw0ZWBOSU++8pH5tTRn2
1KYWn6yneoq2DIcnrPGKsWH6VWSIDe/ZuekV+TN9Ga7FKOb4qBO/jWQ4ctRv
V+dTxG8zGbJn2s907Mf0C8uw6WdvlwMy8g/WMtw7UvHjTCqNs2VoYq8al+JP
tIMMr3d7BDktpfyWI4Ms88/IM+H0nu8lw7OmSW8cfem8XBl4C0sDWs5Tv0tk
x308j70OKWbqLzLoPB2Z2ziR8KtMhrJpb+pjc5n3WBmsy5JnhupSPpoqg7d6
1vPbBpSvZMmgraHu3txI8s6XwfONOO+XJsX3IhnMuGfXRb8mf1Aqg+mWwJKT
U2m9MhmWW5rne58h/ajs2J+foKbRl4n/MuoXpPjSKMMIm0G7w+dTvbJJhk9f
pxrNBvVHNMvwe2fByn41VB9ulaHIc+gnUSD1a7TJYPQg4fynF0z/VSJKhmdo
7Soi/dVIRI+AfX6bjlP/g2YiUjwuXNZdRO8n2oloVzeyO65P+S4rEfk9Nl08
mE7y00/E6ys7793UIP9qlIgCjc23KhrIP5l17HeZd+/qdl+SfyIUL9Y9d58D
kn8inp4w/njJlsn/ElHcJfSU9BHVoxwS8Sa7bfd/UWQPnEQI1ZdkWBZTvuCV
iNn6wbcW2TH15kSs7R3l2nqZxiMTcWfgQPmGgczvHRKRvTsxs3gTvVfKEpE5
8p5x00R6r0xJxOhpwUGHxxOdmohfI+TqcaOIzur4fuqD6cZ3aH5+IiQhfaaZ
ZDDvVYnwCdP/XjGV6hGliXi+2cbkeC7drywRO/KFbh53CO9WJmK1urZ4oJTx
/4mQWk0M6cLkj42JqBsTuUBnENPfkYihf+FwJsXP5kRczDVwXr1yPPn/RBSa
Fo9iDSJ9b0vE5L/wW4up/8rRpdBwo+gE2auGHJfuPbyqzmfivxwFY2vtLe8Q
rS1H+f1iUWw1068rh9jGwEOjhOK9vhy383p5+vcgfGckx8yrWWMCXCm+mcmh
8WFGyrN86ieCHKdyjJYYDo35R1vLsXbPb2/HQ8x7ohyLdWakJLa4kvzlqNNp
mVa7nurBHDlaBZOGzTen9b3kmGTcuvn9bop/XDksYp5diRSuIPnLUVT7++y1
FLJXnhyfjRz55R/I3mVylI6aOq/PI+Y9Qg5F1araZ9pkv6kd9/Wo2HOnmuwr
S45ZQ4ePPXyT/GW+HNeWmKU572L6FeRwHTjp9pdM6uculeOmWvCIuQuZ+rUc
tXvnXh1hSvKolOOH+am12VMoP6uWI2FxVZpjK92nUY6BvIQl2/Qpn2mSI+v9
xw2CatKPZjke8z541vrReq1ysLYHb9DtQeNtHfd1rY8OW8j8nkiBmBHjZ70N
pX4JDQV86laxv86ifFZTAdnk/MC0WsLb2h20+fqnRa9JPiwF/IOSq9z/kH/S
V8DA7r5zbznlM0YK+v0R8c9Mgf+Xm1YSf6GAtLtQz+0mU/9R4P7Z++OtOhHN
VkAZYVXu84nmOyhwWPu8eWMBxSuOArk97tmUt5G/9VLAs8J+Wcl/JB+uAqla
upkpu6mfJFIBi+FjFn4XEB7kKeDx+I2vsw8T/xWYzo/rSPnJn6UokF55vetk
Fb0PpCpQY2j3LtGd5JOlwN5Ve/57zqZ6Wb4CWYu7p1geoPy2SIHTW10P7q9h
5K9Al+79JkdOXEn2r4BGaf2NGFv6fU+lAkWfxvZ86sz0sylQvMxwgvS0Bfl/
BfRep50clkn9VU0K9K7KjZ/Zl/LLZgW+HTu2wD6O5NeqQKGO+cRLAVTvb+u4
b8xTp+zbTP95EkqGTbN4l0v+UiMJ5Zdi+k60onqHZhImVm9paJlM/NZOwt6H
8/tsm870hyTBrWvh40ZvH5J/EnzttjeoraXzGSXBSWn5Wc+F8jOzJITOb85a
akbjSMJHcUJF7lLyT9ZJCP7Nv7F1KsULdhI8pLtvnnpD+uyQhI372WaDA8m/
cJLAG/q3IY7ea7ySoJUQONmRS/knNwk7mqJW6I6j99fIjvnSNumkOUz/ahLM
ThTOcfAlvCdLwmjfPjlfR1E9IyUJVlcPhvSuJHmnJiFm2T6T9Ao6T1YSbGJy
pL+UhEfyO+73t91vDZ2vKAkm74NLxg4hf12ahPSdpx5PspxG9p8EVmiY3359
ir+VHfNLeNXRbYRHqpOQMeyZxXs/8leNSfReSvbXlIRh0weldnGh/Li5g//q
axxOXaf+vdYk8Ovtj567T+u1JUGmXnHYu4X5/WMyCodrNrAE5P80krHR8LbF
pIM0rpmMkeap+TNv03ztZGgFLKh3byB9YyXjU5+/D3bBJP9kZMwvvH2M5U7y
T8bW/kN4lq/I35slo/hebbS79rJ/90cyksxWNaQEED6zTobGXrNNB2aQ/rOT
8fnKQ8WUu4TnHJLhW5P3w3wQ5WucZAQs+5wRWET1A69k+C3x4k/8wfQbJCPd
zVH3SguNRyZD7XFz1eg3NJ+XjHbp53sNfOqHkyVj6Iq5T359ZPoRk9F55TzV
+muEz1KTkbNJnCEcwbzPJeOeg8XbWWHk7/KT0b/bdxNBM9lLUTIWZYxxnvad
1itNxil93fEfXMi/lSWjy8sk/Xd9yD4rk7FY/VK+0wXmPS8Zns/maF+MIfzQ
mAyXaXasvv7UT9iUDBOPPN3bi0jezR38+Kh22kJI8mhNxrAb90ZFb6B6Tlsy
et0Um+a4UT1bTQkn91mPbJLp91IaSuSmvQ+zdaX+bU0lUr1/2q/ZSb+f0FZi
+536rsEWVB9nKdH/tvnp8sgAiv9KjO6df/9VCNmPkRKBTZct+xmTPZgpcc4o
bYL2NsILUMKkh7Ch9hjlB9ZKzDW8HH/Ag+rZbCUkmpZ7JWMZ/K/EkI7s1sqB
6S9R4uhSu8A+fiRPLyWSHnYxf9/CxH8lBmnu2xUlpPwgUom0MbPuWcczv4/q
mP/+8kqXaqb+o0RE0uOsEH+KzylK6j+gekSqEulbH4zfe4r0O0uJ+g/7D416
R/4wX4lleWHDbseTPhQpcWzRJH1PIeV7pUpctBmO8y1M/qdEqeWp1eVhpA+V
SiQGBveo8SV/Wa1E9oj78395kbwalTAL+X1f0p3qr01KXNliJlmbRv6vWYkd
Ud28SiRM/UeJnrPnFVhvJ7pNifjfMa13c4hWU6FzqjEXSylf1lAhJFp4e/M0
Jv9X4V+7MdHaKhw0XO3gOpDydZYKG35olaz+Q/UgfRVqB/l1sIzeH4xUYDvm
p0gKSV5mKjirRhxOP2RF8lehQCU9d3ob4QtrFQxbT43W+EW/p2SrYDdpWome
JsUzBxX0zky8n9+F/BFHhWbzBePN+YQPvFQonu2TN28i2RtXhUM/K+aHapA9
Rnacr3K3zKSJ6d9X4bfHt2dueyg/lqkg3S+b3NmA3pNTVLAd2Pht9l16D05V
4YXR/jc7md/HZanQO2R8XPkE0td8FWIn5M0Z+5L6t4pU+H+7nRbVM0pVWDEg
V8ieSXSZit47CV9XqlDhr5o5YTOtV63C1+5/O5LIXhpVuGRREv72CPG3qUM+
VxOHrXtE480qvMzpfuDNF8LnrSokvXN6KQqj+mCbCo7fPYwsxzDvfyn4XbAg
4WjIrvP/AyBf6r8=
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 1024.}, {-0.0900409, 0.0985}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7831645250706325`*^9, {3.7831646111449223`*^9, 3.7831646485096593`*^9}, 
   3.783164701494084*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"logspec", ":=", 
  RowBox[{"Take", "[", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"Abs", "[", 
      RowBox[{"Fourier", "[", "original", "]"}], "]"}], "]"}], ",", "512"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.783161555554062*^9, 3.7831615733917236`*^9}}],

Cell[BoxData[
 RowBox[{"peaks", " ", ":=", " ", 
  RowBox[{"FindPeaks", "[", 
   RowBox[{"logspec", ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7831619046650753`*^9, 3.783161914390415*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"#", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "peaks"}]], "Input",
 CellChangeTimes->{{3.783161925050233*^9, 3.783161925542263*^9}, {
  3.7831619729307075`*^9, 3.783162011590044*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.6784019099660187`", ",", "1.274646859172671`", ",", 
   "0.23248246642700193`", ",", "0.8894417072191267`", ",", 
   RowBox[{"-", "2.2820440428734265`"}], ",", 
   RowBox[{"-", "3.031421569525478`"}], ",", 
   RowBox[{"-", "1.9979259137188903`"}], ",", 
   RowBox[{"-", "1.6768233799206442`"}], ",", 
   RowBox[{"-", "2.776991754590016`"}], ",", 
   RowBox[{"-", "1.6963311301597965`"}], ",", 
   RowBox[{"-", "2.6661233098482437`"}], ",", 
   RowBox[{"-", "3.382119556634249`"}], ",", 
   RowBox[{"-", "3.408343551869572`"}], ",", 
   RowBox[{"-", "3.212505109444267`"}], ",", 
   RowBox[{"-", "3.797396634032703`"}], ",", 
   RowBox[{"-", "2.6979018388362346`"}], ",", 
   RowBox[{"-", "2.8200351360235407`"}], ",", 
   RowBox[{"-", "3.3863607233888366`"}], ",", 
   RowBox[{"-", "3.0346821672505695`"}], ",", 
   RowBox[{"-", "3.042453910109261`"}], ",", 
   RowBox[{"-", "4.057309362355145`"}], ",", 
   RowBox[{"-", "3.5892453583588146`"}], ",", 
   RowBox[{"-", "4.08669863742775`"}], ",", 
   RowBox[{"-", "4.669054496654792`"}], ",", 
   RowBox[{"-", "4.53091045569334`"}], ",", 
   RowBox[{"-", "4.5668904408103765`"}], ",", 
   RowBox[{"-", "4.309205822136177`"}], ",", 
   RowBox[{"-", "4.142067906228287`"}], ",", 
   RowBox[{"-", "3.738120730380962`"}], ",", 
   RowBox[{"-", "3.7784467690199794`"}], ",", 
   RowBox[{"-", "4.464151617986368`"}], ",", 
   RowBox[{"-", "3.6716968786939916`"}], ",", 
   RowBox[{"-", "3.9435917906928126`"}], ",", 
   RowBox[{"-", "4.911820187267735`"}], ",", 
   RowBox[{"-", "4.916321026632615`"}], ",", 
   RowBox[{"-", "5.236056863213617`"}], ",", 
   RowBox[{"-", "5.088650485616689`"}], ",", 
   RowBox[{"-", "3.7533600397981917`"}], ",", 
   RowBox[{"-", "5.2945364004233255`"}], ",", 
   RowBox[{"-", "4.319596183828925`"}], ",", 
   RowBox[{"-", "4.769994066584444`"}], ",", 
   RowBox[{"-", "5.259073120300492`"}], ",", 
   RowBox[{"-", "5.5572751476491975`"}], ",", 
   RowBox[{"-", "6.300958583706395`"}], ",", 
   RowBox[{"-", "5.916902742730051`"}], ",", 
   RowBox[{"-", "4.124242207535749`"}], ",", 
   RowBox[{"-", "5.020990997003895`"}], ",", 
   RowBox[{"-", "5.230992449835708`"}], ",", 
   RowBox[{"-", "4.911876682290541`"}], ",", 
   RowBox[{"-", "5.705555732034766`"}], ",", 
   RowBox[{"-", "5.89329081574477`"}], ",", 
   RowBox[{"-", "5.506725620838851`"}], ",", 
   RowBox[{"-", "5.982695396975272`"}], ",", 
   RowBox[{"-", "4.492943307222804`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7831619263111863`*^9, {3.7831619808641305`*^9, 3.783162012141451*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"gaussFilterPeaks", " ", ":=", " ", 
  RowBox[{"Function", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"input", ",", "strength"}], "}"}], ",", 
    RowBox[{"Transpose", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"GaussianFilter", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "strength"}], "]"}]}], "}"}],
        " ", "&"}], "[", 
      RowBox[{"Transpose", "[", "input", "]"}], "]"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7831627449289527`*^9, 3.7831628072654605`*^9}, {
  3.783162841003377*^9, 3.7831629460501537`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"logspec", ",", 
     RowBox[{"gaussFilterPeaks", "[", 
      RowBox[{"peaks", ",", "2.2"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"peaks", "[", 
           RowBox[{"[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "/@", 
      RowBox[{"FindPeaks", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
        RowBox[{"gaussFilterPeaks", "[", 
         RowBox[{"peaks", ",", "2.2"}], "]"}]}], "]"}]}]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
   RowBox[{"Joined", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Default", ",", "Default", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", ".02", "]"}], ",", "Red"}], "}"}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQ7bZXgKdM/41jw/ktAiA6cJKqOIg+MqtXAkQHzL2T
AqLjnslkgOiyh7IlIFqsOr8URL/KuNIKol8c8u8B0bn33pwF0Zf+pJ0D86MS
L4Hof1Hpt0F0U0k1fyWQnpVwEExf4hQ8cw5IK4Zag+krR20vgGi90F9gWmtW
x10Q/Wx+82sQ7WRx+CeIXvZN4BeIZjI4xH4eSCdNVuMA0edOWvCBaKUdBxRB
9LLT1uogel7YDF0QXaCjZAWit/ZdBNMLHKrDQfTU/T9jQbSKhU0SiM5yksgF
0YlXrnSC6B8ct7pBtFDC5Ekg2vL3y3UgumW28ykQPSlswWUQ/SFSgO0CkOa5
ep4TRAMAeWGyeQ==
  "]],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333],
       AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw9WXk81Xn3l6VoJVpouyKtlrKkUr1DiygkS5SufYm6G9e1XJdpMS3STKLV
HU1qykh7k6kuaRpJtO9ltC9CT6WnRT+v33POePXPcfbtfT5fmYevWBClrdX5
o/3//+indfpLz0KDYlNjDf0Cp0rU//zq0Zdofcxz3ODs/tmQaENMa3DeLr/f
cfZ/tAmOtnycuG+1NvEHImjeyJdJZ3oQPRi+699G9HuqR7QAgk1rN36x7kr0
cMzfbJ6+b4Qu0ZY4lFjfQ8+B9a3wTl2w71mlAdGjYOOx6eTNmd2JHgOfdwMX
TBzM+uOw17Rl1rggjt8GO8/G1LYd1iHaDgZWwt/sH3M843GsAHarv7H9CWj6
NDpYdzPHZ4+HzeZy98fMd8DG9kfPxt9lfUdErY9fHNr+lerhBHOjLqnvuvUi
/kSYWcz96riiC9HO0Plb1c8wmus1CWqTWZOOSnoSPRnO+s0j+07lfKYgf/+4
slJNN6Jd8PfW61V/7WR7UzFHO7fXODOWn4Zk0egYOwnHNx2bMkP3787SIhq4
b2t2oHIqxasC3rTHROxwYvkZ6O4uiQ4SkbxqBg6YWfze14v77YoZDuI7a7PJ
v8oVX+P7z40wZv9u+HDvQKx1Ltt3w+2In3Sb+n4hfXeIZ2S/fW9D+ajcYdIv
qCDjIvdnJq7H/ADnEVR/1UxYrCr93XqmEfFnIf+tVXiDP/VDNQuqnPqgNW08
L7Mxqv1Hg+6m1H/VbEwdaXVpshnXbw4C9Y1rs+1pflRz0LF95yvDNp5vD0zs
P+/Jw7nUP5UHnpoe6/5iNs/TXBTv1u7rurEf8efCOHjU0oYvfYjvia439ox/
atmb+J5IfvrH1bZGfeJ7QU954LCLM+fnBd/VntWm/2X+PIxcf/PBWJgRfx7U
Cx38+rZwfPPxzeJum/F1jm8+JGsiF3VUsX9vNMdNiFWbk7zKG0Hhl7x8dnP9
fHDLtuz4vpkm/6PhA/svW1ULf+Z6+aC+CDHdQLTGBw+Lx0+Z9yvn7wsjT/OY
5x1Ewxdze2aMHBdH9lS+OHS+xbHqE9EaX6RXtxTZrxxA+gtgU6Zp+i2Q/S9A
n1Piusp1xFctgMGtLZM9ovuT/gLE+a+3uBk0mPT94LL4rdr2LOEV/GD+frGu
+iDJq/xgf3HEzO6bBpK+H7rt2fnz/Y3E11qIdbdrDxy0JBoLIftxo2zvXu7n
QmRf01bXKU1Jv5Nfsmdi6w2KV8sfX5Jbgp8vZH1/CJ5EbUt1InmVPyYc0f/8
6lfqv8Yf569WeOSEc/8CUOC6UTb2BO07AvDiqdBXM4rrF4BHCX90KMqIrwlA
WU3BM5s5ZE8rEOJTfzR+LqB9RSBiS+7s6jhF868KhOK94YB3s4mv6ZTX6bE7
aCT7D8KgIrlLTQ3tD4IQ+3xEyJYhNH+qIPR8fvrPY/lEa4LQ9/QR63+GMt4u
QuVPI4Qhkay/CH4Di3xq22m+VIvgNS7fMbuC/GkWYeHiQP+7BRx/MC7lbX0Y
voXkEYzLgys/qVJZPxi4+UtK7ivqryYYb4e5HzzszvgbgrfbJ904fI7yRQii
N7X/ENnM+xwC8eVVlvnWZE8TglfiwPkXrnH8i2EmrxM4nKR5w2IcFT8cv8Gd
9ke1GJYDGotzbtB+aRZDa7u9su0Qx78ETSv3Tg0dwv6XIPqExHLqfN73JXB9
0VFQo018zRL4OKoqW17w/IRCtCOo/qdbVB+EIqb7FEnGhq6kH4qXVi+K9ztz
/KFYnTEg1M6L928pfppukLvrOM/PUty0NA64r8v1WwrPMzNiFY5c/6X4EHdt
dpMrzbeWELdO27za9ZjiFQgxd3OdvLua7QlRMCfvYvMy2h+hEItfGu+s3cx4
IoRbx7Ja3z7UH7UQlfKtswPf8L4LEdCokxSUSXSjEHvEx8fuyOP5C0P81rxf
phZQPoIwyIbPDChpYTwJw58nNN4eF0lfGIZHR066Ffbj/QxD/zUPtt88x/7D
0Lf8rF7UK/Yfhh75vp56jAeNYdD/TTg55wnvfzgSQo7PPqIgWhCO/L+v/F0z
jOwjHFZjs5enVBItDIdH04XmkFtDyH84cqdljrlcSHx1OJaNWBRlbM/+wyFR
6FVckrH/cDiV5leWxzD+RaBrR5V2RijhhSACJ/a3/FZoz3gWgfMzNk26fZho
YQR8rzZ0ye3D+UfANbxCIbAkf+oIbMzQVRjXsf8IWPTeNiTrL5JvjMCkNedN
/Pvw/EUi9GndoKHzuP6R0Lkb0DMklPchEj/alMzcdILwVtgpv0P+T8wqikcV
iR+6LtgQYEXzpo6E8ZRaM2UBz1skeq/W7TK/J/EbIzHEWijv2437H4UllZ82
Ov3C/qMwR6A4LGvi+YvC5YwJy6uucf+jEGjstKhiEvuPQrXCO/SSFtlTR8Ht
ftKxbHPelyjc/7tV9rOS5rcxCsuag5c0nOP8o/Hx2Ioo+S7KVxCNzTN9wm+L
qR+IxvtHvw6YHjeI/EejuI/30tRNjM/RcA5eVHzFlfjqaJi5Rx69bEH2NNE4
oGOWLe1CdGM0NF4nBkY/5vmLgaYq33NvFNkTxCDAX/Hnkll8D2OgX/WpYmwr
718MEhNDD3/3Yv8xKC2dW2EVSvbUMShZ22+C0U3qtyYGFZ8f96ispno1xmDP
gs1T7XMYP2LxqlQgHN6L5z8WRv6t3U+4c/9jke3teV/nEtHCWPR9OH6bXyHX
PxaRHfO3JxRRfOpYvL9o3LR0It/rWFTkvk46NIrrHwuZrfepuQP4+yIO1jUb
fINfc/5xaJ5kdzWyieqJOBx1leUpwnj+4xA8R1nz97/9j0Nj+8m7o+7y/MWh
ybWi3sKA5z8O67Lv12y9w/MfB5/qFHFhNecfjxMenjdvP+T5i0fWG99LI/7d
v3hUGnQ7FxZKfGE80trKzi3U5vdRPNy9W/8zbjfVRx0P4+bVo41ucP/jkd59
+ozjqVz/eHSzMek3bS/Nl9YyNJ59fSV+Oee/DDXDYs2+ebD/ZZC3rgnVSab3
n3AZdKyCuzvt5v4vwwz3xC9+W3j/l+GCjsThyRZ+ryxD9eRe3/akcv6d+u92
pKwp5/lPQNsyG8UFAe23IAEvTnfseSNi/E3Ao1Pbv5dM5/1LQLGj6dVeexh/
EtDLtofy9lrG3wQY29Xv9qzm+nfqv3zqs47xqjEBIYt/9o1NZP+JkAZ1HKrv
xvOXiE9rR/feZsfzl4hTHf0vbC/i/idir9SypNsjrn8iuuqbL9ddT/mqE5G5
2LftvTH7T8QGD+noAjHXPxHfTJZuexjH+LscUfF3r162oPgEyxH70MFiVxj7
X44KvVlZmt8oPuFyXHqUvyUknOZZtRylCWb6P8gpHvVyGF/b2bX9HM//ctzJ
GPSuOpL9L8ds6dCNZtp8f1dAu4+lovYq578CzfO82/9Tzu/JFXg0w+6TaqiA
/HfSKf32Rj9k/ytwskOgO8iL938Fzr4RtR19TPujWYHU0iNeLWf4/q5AkZ7z
9Yv83tcS4Y7O0nFHZlA8hqJO+fWx+aV8j0TIUJr1OPqN7NuJsK1f7vg7H7k+
Ivx6IeBSXBHRPiIU+2V9dyrjfnXqj9t1Q4f7IRLhuOjKWMlznl8RrpYGzjpk
QfbzRHDbdDMnZhDPswj614SeJ8dQvuUi+A4a+WJ4C/dXhNdvxKtKBpP/BhHG
1xccvPcX11uE2gkmPZ+qiN8qguBM177xq8ielhhZU/eVjnAlvqEYOr3339Jx
5nsgRvXEkvFlE6gedmIYR856c0KP9CHGOul2m9oson3E0Ayqc0n0I3mhGNF/
juxVvITsicT4zfP9sCcTuX9iJC78bBjI+J0nxj2T0pLRH/k9IUbPa/OrpM9o
P8vFeDCvpuDVeP6eEaOpYZhlSAD1u0GMiIPrcw8dIbpRjAXnvu9Z30r40SqG
nZHUT+jB+UtQ5WXUcj3HgvKX4EVTXMuA7zyPEhyWltzJeUXx20lwOVGQ9fkt
30cJvr3o4zA7jfz5SNC46cLG4ni+VxL4uAr/GNxM7yWRBB/anzxJ3mFO+Utw
e9V+w11XKL88CaY7vBt225bvqQTO7e/7fVUTXS5BbJczjp53eL86/ZvULYir
pXlokKA55UCs42fGGwkq9U3WrFSTfKsEp8s81m09zvdHihs/PlUfeEB8QymM
um4pVfbh/kvhdXdz9fCFJG8nxfXhP4wY8ge/D6UYMPX54WUjqR4+UhxcmPPW
UI/xWorswrCn+hHEF0mx/Pz0NzpHuf9SaPpIx8nNyV+eFC6DzQetKKJ6qKXw
sB32WiIYSvlLob3V0byoguqpkeL5jHEOPfPJXoMU09qtLk9ZTf4bpbAeGLNt
kzHpt0rxpOxGr+dFfH9kMHV6+8/BX0neUIbqLvEpBtWENwIZfm8+mXVuG9Xf
TobwoJUmmhqShwyzq8UnV3bj/svw0Mm424wv/F6SQTr+291R+ZSPSAbbT5rC
vXs5fxnWnfln0Jf95C9PhjNbtR5mW3H+nfaPzhc0nOD+yxCY5WQV4EH+NTIM
WbX4Q14dz78MymcLpS6nSL9Rhi+LVuvV1ZO/VhlkE7cOrp5D+lpJsHw8uo/y
EuefhP7mJ93OF/L8J2FepTQvYQjx7ZKQli6peMrvYSTB/FTVhwkTqL4+Sbg1
bZ+3rhnvfxL0TrxJ9mY8FiWhV5dRxlG1nH8SLtm3KXQ9uf9J6Ft/y8n53/1P
whH72UaK9xRPeRIchqf9FT6R6qVJwuvJjRcz+zH+JUGsuulj5cLvrSTsWXP8
QaUD418SDmtKa27d5fuTjD+vD9tbsJb2xzAZv1oOvTDGkfQFydipMlU03Cfa
LhldAx12m77k92kymvReFv11j+LzSUaPpQ/qgnvz/iejy4ch927bEy3qtHf2
kK12CtVDlYzSs9m6j4ponvOScd+gd+3fmfyeTEbUzbnCLr24/8nwm5leX5DD
9y0ZP+fo3GpiPGxIxh514rV1Nrz/ydgrKaybfIDstyZj5ZFpH+7tJlpLjlXm
r7sNfk79MpTDYOCGTw/aqN8COf7I3e6d1Z/xX46IpmstA91IH3LsGVJae60f
yfvI8eZT8T+OR7j/clxpO9RlxzSKRyRH+udsq+Yy/vuUHAdeHT/76N4wyl+O
qsUhTYLTfM/lGJ1leErD77dyOfKivha87uD3pRyuNhHHxhtw/nJ4n/08vdmK
918OLZdkDNjH+C/Hppnh6HeM6qeVgq4rTT1fHiZ9wxTI1+/XuRdP+QlSkFMW
ZBE7jOc/Bc9eXLf15/uGTvnXZysPGtA++KSgV1Ff08IBjH8pELhb2dxfQvsh
SoHL9qX1P3rx93MKIrofdI+fz/ifAqVfWv+dR3j/U7BpbtaNvutJvjwFWbYz
V4iciK9JwfBwx9yKY3RPGlIA6y7OESm0H40puHHq7PyaIrpvrSlouD0+W3mS
4tFSoGDCuym+uUQbKuC1xmRww2vGPwUkeaud1luSfzsF3vTu2JKjIHkoIB2d
6X+zhvdfgdrFJ113JRItVMBE/0jh+XecvwLfp+ke1v6Z7KsUiNm4WX5URfy8
Tv0zxx8ErCa+WgEDk3NBGW6M/woE/xTme3IX0RoF2k2fFM8pJ/kGBcqcP86b
P4bibVSgPL+2/Ngjqk+rAoez/S5ECLj/qRDMPBff2Ej6hqmoPxGw5D/ziS9I
hcHtDME/Jpx/KmQmo7o4X+D5T8UvQ/JPGO/n+U+FfeSS8eEFnH8q/pRo9cp0
IfuiVIRHFgx05PqrUuESlrY3nb+v8zrjWRK8umkL979TvrFrcTnfj/JUfHf8
avswn/E/Fao6s3VjthDdkIqs//7kM9SM9qkxFccfdHUz1SX91lTUNew8+C8e
aKVhf+6G0fWHGP/T8Cr4YNSq1Yx/aZg64tSPaxaQvl0abtx3clnD3xtIw4jR
Jdo1n/j+p+HQu4PWpv/e/zQEOIzYOWApv3/S4DAo1ihBTvZUadiQ+fHOuQ3D
Kf80nDdbdHv2U9JXp0E5PcRdGcP5p+Gz4Ym/vM4w/qXBf7TRi6o5lG9DGq58
+RBSIOb+d/I3dC/KekP81jQ8P1Tqp1XG9y8dgurUId5NvP/piGm/PNesnOQF
6VjTcq7/lCPUP7t0TP0a81AoIj7S4Tb5pmu9gu9/OgpFE7wzGvjvRenwfJHe
tuoa5SdKx6I6ry9tCzn/dOQ7WlfHGDD+p+MnN2fdBycZ/9Px9vs99ct2xv90
nDPc5qiJ5vlPR4W50bzpMu5/Ok4n2I69kMj4lw6LXce2hXcn/dZ0bL6SuPa3
g7QPWhmYNSq3osWM+5+BhDotm+otPP8ZSM58+3iiDc9/BnYEvDr8dTDVAxm4
uPJ2SHe+Jz4ZuDkiW25rT/URZiB8Uuaux9P5/megysF6U3Iu418GVD0Uu1bt
4P3PQN0Oc7fTUcRXZ8DJ7tCZRRa8/xnYabuuTC+C88/At177jY6qeP874x0p
8U2q5vnPwMkxTvfbo/j9l4EytWLU8QaefyW8DoY9vefF+KfEckG3wWmFjP9K
dLS/HDq5hPuvhL9L0sQr0xn/lKh5EOKmrc/4p0R8Y1lJ+BjefyWm3x0XNvYV
778SW5aW/S6opfhUSkgz9Gv2hlA/8pS4Yry1/5sVpK9WImOkufczfo+WK2H9
UhZ2vor0NUpsHRpo/rE/z78ShQanY/Osef6VMFnns1UWzPkrMWVmTJW4J8lr
ZeKU7Wavz0rGv0zcT1ix/wX3V5CJsXO65qXbcv8zse+4f/izPTz/mYhUPPqu
l0/x+2SiZaXRp3mJJC/MRGOi79u4SyQvysTA0j/v+m3l/DPR+tHyXkI4v38z
YTokZKSTmvPPRDfD07MmePD+Z6LNUq76mMPv/0wUurk8W8v/P9iQiW99hDkO
U7n/mbBe6rSgmPGmNRNzAp2tvfi+aKkwyx0bNswdqvk/dFK0Ag==
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.008333333333333333],
       AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQDQECDi/3fNo5N4vhAISv5CAXnTj1UzwjlG/qsH6q
r/LTOpi8uUNjwLZ9W4yg/AZHB9Go1hC/jP/7IXxnh0XqoVpKkjD9Pg6W54qa
q+tYoXw/h5LzszwY9nFA+eEOExhYn+/qYYeaF+6Q+P0684WjbBC+Q4TDNfWt
v24dhcofiHII4p8Ynv4fpj/WYZPIm4WVjzih6uMc+OTcAx6JckP4DxIcOr4w
vzVp5IfwFZId9i1jPpkRJwiVT3GIUto30b4Ixk932FH5Vb3yM5SfkOVgLCEj
m5EoBNWf7fBgosXvVX+g/IYcB6ski4kS1sJQ9bkO59IjYt0doPwDeQ7xs79d
EWqA8h/kOyg8l5n18RuUH1DgkHvJ4WV2kwiEP6HQoSCwt3p6viiEL1DkYHm6
sPz1Wyj/Q5GD0TGdtBYZMaj5xQ6vmHz4fx0Wh/ANShx+xyRIr5wrAdVf6hA+
saGzNREqP6HU4Zlm6k0rbqh+hjKHl+Iq22QMoOZfKHOYtndz6+kVUP6Ccoeq
kFJm4TlQ/QqVDoyHI0+/ZJeGylc6OM2ov9qQKwMN/yoHHu/5uswdUPkNVQ7O
s3at0V4gBXVftcPTy5oilZ5Q/oRqh/pHPjsDFkP5G6odpnw79MF3OpTPUONQ
XPMyUnyrJFR9jcOS9V+bn9RA+RdqHB4flK4Jj4SqT6h1sHS7xm8zE2r/h1qH
AtNVlharoO67UOcQWrx90ucYKP9AvYN9zfWNaQrSBwDSWu+v
       "]]}}, {{}, {}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], 
      PointBox[{{4., -2.0520586516573656`}, {35., -1.96296532646159}, {
       94., -2.846588163402814}, {352., -5.296984525635687}, {
       435., -6.571750941327058}, {457., -6.371965467329492}, {
       508., -6.7816417491695224`}}]}, {}}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 512.}, {-9.812082730202215, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.783163982882081*^9, 3.7831647376836367`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"LowpassFilter", "[", 
      RowBox[{"logspec", ",", "0.07"}], "]"}], ",", 
     RowBox[{"FindPeaks", "[", 
      RowBox[{
       RowBox[{"LowpassFilter", "[", 
        RowBox[{"logspec", ",", "0.07"}], "]"}], ",", "5"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"Joined", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"True", ",", "False"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Default", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", ".02", "]"}], "}"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7831635512502003`*^9, 3.783163591265995*^9}, {
  3.7831636642329845`*^9, 3.7831636716215057`*^9}, {3.7831637205559397`*^9, 
  3.7831637263251534`*^9}, {3.7831637639108486`*^9, 3.7831638052642283`*^9}, {
  3.7831640496941423`*^9, 3.783164079109311*^9}, {3.783164270447997*^9, 
  3.7831642780014257`*^9}, {3.783164326110592*^9, 3.783164406247568*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333],
       AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw9lXk81Gv7xyedolKptDwqRFLplBZpIZ8QspR9ydLYdwbDYAyTUtpRCm1K
VEppISk1SQtSjkOrak4cWiiltKB+Xr/nvp55+eft/l7fz/25tu80r3BbXxnO
wE/m///Yr8uAn2c+rfftaAn7B1p9vyjvWkUsB1+dCRsUCkYxVkB70tUh5wYR
K6LSPNbf33Mk40nomWZjkiWRZzwF5fbXvNs1iFWxxUA6+HT6CMZqEGQ0fX3K
IZ6OUOn+vQejhzOege3fDsXP6BnGeCZyTRLDNIXEs1E17kDYlaHEcyBoe865
lSPHeC5MTRp3tS8m1kYmyvtsmmQZz8fRIut4l1jiBXinMuTfDA3ihRAF3ZYd
0ziU8SJEPLi56slmYh2EfK6ReWFEvBjJNzwz8vuHMNZF/piPp5uvEi/BmEsr
w6KTiZdi6Tmrl3dXES/Dqf0jFqwfQ7wcy2a9dV/d/QdjPVx3VZkw/QmxPt6o
RKu73yZegYWZ2UMK/scG4I0c51JXSwwUnAnR3yxlLAZUb067m9VH5ythu2dc
6/MZTF+8EncN3eKucek+hghtzA/wraBzQ/B+6k9YOob8G2FE846mm3GMxUZ4
8cImcXsnnRuj+WZu+eRAll+xMWp9Pwg1PlG+V+Hx8g0KKzeweolXocH22jLl
iVRfE/SfPT9Br4Sx2ARHjAzWmllRv5jigeyWF2M/MBabQmZfb3blbuovMzxN
HRHtPZv1o9gMcSd+r26tof5cjc+f1quN8GL9LF6NZ49HPdreT/1tDuHGZ6tj
M1j/i80xZL+8bdVsmhcLyB4HrpcxFlsgZPKCETIaCuzcEh9tx2/+GcxYbIn+
yZY3vlygcys8evP2ld5POrfCtQXyW3owhp2vgdy8B9HDtjEWr0HmbePwXw10
vhYHTIV51spj2flalMxrTT0ZyJhjDeXYxoyPxYxhDctpGhHnv9Pz1liOg8Nf
Lhv3X5ZYw2DQX/VyyYw5NniPD+umVTKGDX5EGEvc+xiLbVBh2FnftkCRxdtg
XvjtT2N8GHNscdjN9OjSrYxhi4lpMW1JhYzFtih9N23QkQqKt4XC652lrrco
3g5KaTN7xt+keDvkFHl53rlI8Xb4s+qWyd0DFG+HWYoO81YkULw9KjcuES+3
pnh7NDz6EX9OgeLtcWZqltXKh+TfHrdCDLSmbiH/Dihs2b3r/FLy7wArc3fZ
2S2UPwdcGh8+pnYrY4kDnqfMy3P4k/LvCCWvOQuzG1m94AhZh/jTaUKqpyOC
ms+ULJzDWOKIao0zJpnN1B9O8P1iJxmWwRhOKBRrXapaQ/3ihAOZn95JFBhL
nBC5bEy4yjXqT2d8+I9k5GZPxnBGZ33emUA16ldnNM/L1eO0s/6WOOPv0iN5
D67TvneB6vLGnYknGcMFmrNsgu8fonlwQf9J6cziAxTvAuVkpV8n/vf9WIfK
K1DYW0bx6+DZZnZz118Uvw5h4yTHP3RQ/DpcnlQlXiBL93fFhmcbf43Wovu7
QsW4tHCSDd3fFboWvQX6sYwlrqgTjk87kkfxbkjZ/uno1TsU74YH9arBX99T
vBu0DC9vdxtG+XMDp7zGtVuF8u8O05DHc0MXU/7d4X1iTO4Sa8q/O+48LzLQ
96d4d9h7VNf+nUzxHlDxsbPXOkbxHuhduabmjyqK94Db/C9NMm8o3gMfS64v
3DiK5ns9Xn9Nuq+vQ/2zHplvnzb+40P9sx4Hh2j+dtpD/bMehpPVHidWUjwX
KzC66dZXxqpc5Iz8S8F8Nu0DLobqpG7f5MeYy8UFC9/MxiPU31zYv3KeOfs5
41wups4+v/HDeJoXLgQ6r8sf2jKWcvE4+cht3a00P54QDvOxUqxirOqJksEO
cyNpf8ATPVtnHJKdz+aR64mutvmug/xpPj1x4V+rbq2DjHM90eRuNiOwmubd
E9PrujeM7GQs9YTf4YaWx6PGM30vtF80iWibx1jVC1P/nbvruiljeIE79UW/
tStjrheOndz0fWYgY7EX9mxa25QexTjXC0Mt1nSfFTCWeOGN3Dyneh5jqRfK
l4S1iwNI3xtxT10Kh3BJ3xsGGU/mvVhN+t7YeplvJ7uY9L3hmNnC11UmfW90
L9gt6h1M+t44kPPwm3Mr+ffGkEcXpmnXkn9vLOm+99LoHO0/H5z9dH+IXyZj
VR9YPnX+fE5E+9AHO/dVmEcHUP59cGVJledjZ8q/D44dKNGopf2Z64NvufIm
Meak74M2o3OjZluQvg/U1KL79tiQvi/KLqwxUHEnfV8Y8HaUF4SQvi+Cc5RN
L9J9uL4YXnb11eIs0vdFukW2zt+lpO+L7LUvLp76m/R98SLkztn0L6Tvi6su
E9y8x1H+/eCd/LVNT5fy7wf5ytE3uhwp/35orVQefCqa8u8Ht+5crYT9lH8/
mB/vPe98nvLvh0MhTSOb71L9/aD7Mkrg85zq74ei7ljpnU7S98feJ6/M5v4k
fX+4ctbFfe8jfX+IeRZuXZwJTN8f32XWWX4cxFjsj97DUyvW/yJ9f3S+zPE3
7iF9f3SdS9sp+UD6/lhkNrPwzmvSD8A2SXqvuJH0A2DoftE5p4r0A6B/sOxi
GvnjBoC/sP5A5hHyH4AXV1cvvpdO+gF4/HCGy4kE0g/A0KPjWtWCST8As61y
mhPdSD8QiRpdVi0WpB+I/Jb+Ko/lpB8Ir/eGZtd1SD8QlUvkKno1ST8QO88/
mqCpSvqBKJ7TuiN4MukHQsG4PSp9IukH4s9T6nLTJ5F+EPwjRgQNo+dVgzDI
dJQkdQrpB2Hp8ur24+qkH4Thn9VyirVIPwjbdshvU19I+kFQW6Z/OViP9IPg
VfO5IYj8SYNwyjPkhr0D6Qfjm1O9xWoP0g+GqVTvsCLtFwSj6o8AA18+6Qcj
L+SklCMi/WCst7r0KiaF9IPxO+57ddAO0g8e+H7NTg6i+kiDcW3Dlrod+0g/
BEqbyraf2kP6IXDt2qMizCT9EBza3mE0iPqdG4LQl4J8zSzSD4FP1R/JjodI
PwQXCsqmSw+SfgjuWuh1bKRz6UC8iVxH9zHSD4V64amoY/mkHwqLUyMzWwpJ
PxTv54yas/ki6YdCVWRrzLlO+qHIb3uvolNN+qHIzjpitOgZ6YfC43s9x/st
6Yfi+L9LX7n2kn4Y+npWdbWPZvOkGobB81M+pE5jjDB0LO8rll1C8xcGtxKX
SX9a0fyFQW7Pr5yxnoxzwyC9Zd5pyWcsCcMuuWkrK7YwlobBfJ+FtVEGY044
5maXx2UfI/1wpPVZRJ0+R/rh+JbydbNLGemHw7A5RlB8g/TDEXHt0Dj526Qf
DnOOfs6au6QfDi0Z/tiIe6Qfjluf/dIL6JzDg4Vg5+7mW4wVeFAs3n1lWSXd
hwflXpvY+6SnzUPT4lmbFlyh+/EQ/mWP+q9yxtY8/JPstMDnKt2Xh2dm5Yoy
FYx5PHRv8x4kpveLeRhpUPCyju6XxsPk9svxn+vJDw9ZixboXGplXMzDD7ux
G8b1kD8e9vbOkZYOm/hfrufhhUz2r2kajKU8uFbG5L82ZtzFQ1KdXlqdL2NO
BJ7/Tk+avYuxQgTk/bwldpcZq0ZgbeGRfK1WxtoRONXx6bej4iTmPwIvC5/V
bTVibB0B27LTO9qiGXMj8KPbrcfqJGNeBPqv73Sa8JyxOAJOq5atvT/8P8x/
BNZdUBmRuYRxbgTcavpsnvkwLh7QW1fUkbaTsSQC2d5j+YXnGddH4MHyrKQt
fzGWRsCr5Kt/ZwfjrgF/eWfnHxykxPxHYrjeb+NUBcYKkRD88qquHc9YNRJy
F6a/iibWjkS5T6fpXXoekRBPNNhuPoyxdSRk5podNv3J9LiRUHg3J8SrhTEv
Eh/8d+W51DIWR2Lj4TOX/C6S/0iMPmUz2H0f+Y+E0gjb81fiyX8kzmzTtFxB
+ZBEQrhVm9dmQf4jYTP+kHqdLvmPhJmWYUG1JvmPRDi3ce9jZcacKJSeNM/P
nsJYIQoxRg/TRikxVo2Cr9cnz6wZjLWj4PKg4FbhIsaIwoE5yR6tZoytozDF
+UlTmxf5j8JS9RUtM1PIfxT0ar7I8PPIfxSmT/qaOrKO/EchcsPVa1d/kP8o
mL/z87PQZPktHrjf0eK5vTaMJVHQ/Evk4yhmXB+FNTkuGnqnGUujEPrm5+Du
esZdUQgLSBp0rJvqz0ef2j/VwYqTmX8+dlTvlK34k7EqH3XDW8wTjBhr87HA
M9v4hR1j8CHZu9vKwIOxNR9OlgUyEQGMuXx4FLgctw9kzOMjZZ2z5iIfxmI+
Jic3L2t1YZzGx5rxhxfKWzHO5aPTaBJnxTLGxXyEXV+5Z/l0xhI+BIPH1fwc
zriej1L3yvO1HeR/4H0jJhw/UUf++dAd8zXkSxH5j0Z1+yv57lTq/2gEtb/e
7+lN/R+NsXlPJkxdQf0fjVumjzZpTaL+j8amgPCfBz9T/aPRNC/FopL6mxsN
B58nHY8LqP7R+PDpYeisDVT/aLhPCHdL96D6R0N7pGarhiHVPxqGE9PdvlP/
FUdDa6b3k87R1P/R8AmOVdDsZfukPhr+Wm+3dHYwlkbDoEl0paqFcVc0IuzP
dxx6ypgTg1XH0e/VyFghBtP9GkVcYtUYbOqzuVv+krF2DH69F6X88y/tvxho
lG/TOPuB9l8M0htqS5r6af/FoEa95B/JSPIfg+dfPzqWqJD/GNglp6VO0SH/
MZAfPmzLsNXkPwaLh6kuG+RC/mPwbvcN4y+B5D8G8bLCjmTaD/UxyH8dp9u3
meY/BqVJVmrDMmn+YxDQbD7nci7NvwC7cg9YDT9L8y9A/9Fks6wymn8BRO2N
gf5Xaf4FeKMhWe59i+ZfgM83ZdLO1FD9BThwWVXSTPuXK4BpX2+r/ivyL0BT
57kbhZ3kX4BVHyZ5H+CwfkoTYPSd65YHxjDOFWDur7KU/bNo/gdY7vrbXFOa
fwG2q6z8dNSf5l+Arbo6h5fuov4XQLZo8p2iMup/AZJljptJ26j/Y5H/H9cz
wVNp/mMxdIJw0VBnmv9YBHJK7Z320vzHwjVElO32mOY/FtKtW890TpnC/Mfi
VVFT9Yj1jLmxeBrV+HtHHmNeLGa4VX32amcsjkWFWUpLzJ9Tmf9YLJsxxcky
lHFuLKrz+Dr/nmZcHIsFpQZlza2MJbGYG7NG+52SMvM/oBe+2cR/LWNpLJJy
83+9ETLuisWZiEqvXUcYc+KQ/PWfBu0qxgpxyJgk/6PoNWPVOKBG37fjG2Pt
OERVrWmJkFNh/uPwS0foajuWsXUcJmeZrIoYz5gbh+1DUzY9oHNeHI4FJYQN
UmAsjsNGi9D8e4MZp8XhYmtk6d4eppcbh3CPny9DWhkXx+HE8eZx4+8zlsSB
858A532XyH8cEn0V+dhH/uMgsvvD6FIM+Y/DjBUR71scyH886m7f3OugQ/7j
4evYfFA4lvzH4+Z5mUfGX1m+teMRX6LeM6GOMeKhGf4tV3KCsXU8+Kmdl/mJ
jLnxWNqfVuLgzpgXj23rn6fp6jEWx+NeQOJ8nSlU/3joLz7S+7Of9UduPLqn
z5pnLWVcHI95+jppG6oZS+JRbL0/dfplxvXxmDZ2+LOGAsbSeNxWurZBvI9x
10D82KMzM3Yw5ghxzuDI2KRtjBWEUJ100MgjlbGqEH5PXp1OpXNtISwNl3TL
UDyE+Oew3t3gTOp/IWKeHG5/fZj6X4gs7b3i4CLqfyEq1DJOWF2h/hdiy9KJ
KwQ1jNOEyLa5Jz+e/OYK0d7tqBn2kfwLsXHcEIH+IOp/ITIsD707psC4XoiP
33++t1NhLBVi+NS+hlNajLuEKN6mlT10KWNOAiTJe/eNXslYIQFBT7cf4pox
Vk2Aln1jp2At1T8BPa8zDzfbUf0T0Jrd1apuT/VPQPp53fQuYm4C7nZtMVNw
oPoPvD84RSmGWJyA+d+qIzUdqf4JWOEXsiuS4nMT8D1svVwWPV+cAF+NNz7G
TuQ/AbPrXn5udSP/A/oNtm/EXPKfAOWeCrMyP/KfgLyN9feOBpJ/EZQXTR2i
KiD/IvSF14lsN5F/EZJnPs17lUn+RUg1L9I8fZz8i7D2/v1vx8rIvwiuFn9M
a6wl/wN8W6snr4X8i/BJpmLU4H7yL0Jtw8qLSxXZvKWJsOPV/jkntWj+RfDN
SYt7vIrmX4Sjl8U5vZ40/yJc8Zj5TpH2W70IMxuCTwTupvkfuL93qcGeQpp/
EVKydDOsJDT/iWjd+1fooyc0/4lwiPOVPOqk+U9ES6FebRGH7SftRFQODrIw
HUf7LxGFdt92KarT/ktEealJWNt82n+JKGkze3JTl/ZfIl48/7FiqzHtv0So
X1P/FmtJ+y8RjUrGNVPtGecmInIi37HNgXFxIm6vCfgi78RYkgh9Jb/HnfR8
fSJ+KZZ3KNoxlibi+LwjtTetGHcNnMunLXq7ijEnCd7LvO3U9BkrJKE+YWuF
/wLGqklQUlo1ZeUM8p+Ers/cKx4TyX8ScuK8a2zpe2CdhCp9G7WAHyx/3CQY
fsuYHvKOMS8JJTs8RUOeMxYnoSZscIox7fO0JMjEh6gcu0r1T8JUk2BsK6L6
J+HgcKOLwblU/yTMOlVQZLKX6p+EZw/b3/7eTPVPQuH1DbJzE6j+Sdjc0DCj
gEf1F0Ns5lv8OkBZ8n+Irtf/
       "]]}}, {{}, {}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.02], 
      AbsoluteThickness[1.6], 
      PointBox[{{29., -2.596369053851948}, {102., -3.8260195916710686`}, {
       165., -5.072716803093718}, {206., -5.273015795698498}, {
       305., -6.275446188593255}, {353., -6.207399335945897}, {
       433., -7.133172089006649}, {
       512., -7.60242725008186}}]}, {}}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 512.}, {-7.835010355822026, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7831635627072163`*^9, 3.783163591714896*^9}, 
   3.7831636722311316`*^9, 3.7831637268727384`*^9, {3.7831637764043016`*^9, 
   3.7831638057148867`*^9}, {3.783164057073737*^9, 3.7831640795367365`*^9}, {
   3.7831642712667007`*^9, 3.7831642786099296`*^9}, 3.78316434327315*^9, {
   3.783164380119031*^9, 3.7831644068177443`*^9}, 3.783164496593094*^9, 
   3.783164535272439*^9, 3.783164705392868*^9}]
}, Open  ]]
},
WindowSize->{751, 792},
WindowMargins->{{Automatic, 380}, {200, Automatic}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 29080, 624, 2976, "Input"],
Cell[29641, 646, 29784, 633, 3014, "Input"],
Cell[59428, 1281, 29594, 646, 2938, "Input"],
Cell[CellGroupData[{
Cell[89047, 1931, 142, 2, 47, "Input"],
Cell[89192, 1935, 16055, 276, 230, "Output"]
}, Open  ]],
Cell[105262, 2214, 295, 8, 47, "Input"],
Cell[105560, 2224, 198, 4, 47, "Input"],
Cell[CellGroupData[{
Cell[105783, 2232, 243, 6, 30, "Input"],
Cell[106029, 2240, 2581, 56, 164, "Output"]
}, Open  ]],
Cell[108625, 2299, 748, 21, 103, "Input"],
Cell[CellGroupData[{
Cell[109398, 2324, 1673, 45, 140, "Input"],
Cell[111074, 2371, 9670, 170, 265, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120781, 2546, 1012, 25, 84, "Input"],
Cell[121796, 2573, 8882, 157, 235, "Output"]
}, Open  ]]
}
]
*)

